Паскаль.Как посчитать в массивах разные элементы? - Turbo Pascal

Формулировка задачи:

Паскаль.Как посчитать в массивах разные элементы?Вот программа,помогите исправить выделенное красным.

if (a[i] <> b[j]) then inc(k); writeln('В массивах есть различные элементы в количестве ',k,' шт.') end.

program qwerty;
const n=5;
var a,b:array[1..n] of char;
i,k,j,f:integer;
begin
for i:=1 to n do
repeat
write('Введите ',i,'-й элемент первого массива : ');readln (a[i]);
f:=i-1;while (f>0) and (a[f]<>a[i]) do dec(f);
if f>0 then writeln('Неверно! Такой символ уже есть в массиве!')
else break
until false;
for j:=1 to n do
repeat
write('Введите ',J,'-й элемент второго массива : ');readln (b[j]);
f:=j-1;while (f>0) and (b[f]<>b[j]) do dec(f);
if f>0 then writeln('Неверно! Такой символ уже есть в массиве!')
else break
until false;
if (a[i] <> b[j]) then inc(k);
writeln('В массивах есть различные элементы в количестве ',k,' шт.')
end.

Решение задачи: «Паскаль.Как посчитать в массивах разные элементы?»

textual
                            Листинг программы 
                        

                            var
  a, b: String;
  i, k: Integer;
begin
  {...}{k:=0;}
  for i:=1 to Length(a) do if Pos(a[i],b)=0 then Inc(k);
  for i:=1 to Length(b) do if Pos(b[i],a)=0 then Inc(k);
  WriteLn('Уникальных: ',k);
end.
                        