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

[votsar]

Паскаль.Как посчитать в массивах разные элементы?Вот программа,помогите исправить выделенное красным.
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.