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