Ошибка в турбо паскале (массивы)

[leraaa]

Всем привет. Помогите, пожалуйста, исправить ошибку!
Вылезает ошибка 26 *несоответствия типов*. При этом подчеркивает под then в цикле с флажком.

Вот фрагмент программы (здесь идет процесс нахождения максимального элемента среди неповторяющихся в матрице a^[i,j], сама она и max описаны гораздо раньше в программе, просто в данном фрагменте этого нет):

procedure matr.max1;
var b:array[1..100] of integer;
i,j,k,d,s,z:integer;
f:boolean;
begin
readln(m);
readln(n);
for i:=1 to m do
for j:=1 to n do
read(a^[i,j]);
readln(a^[i,j]);
begin
s:=0;
for i:=1 to m do
for j:=1 to n do
begin
f:=true;
for k:=1 to m do
for z:=1 to n do
if a^[i,j] and ((i<>k) or ((i=k) and (j<>z))) then f:=false;
if f then
begin
s:=s+1;
b[s]:=(a^[i,j];
end;
max:=b[1];
for i:=1 to s do
begin
if max<b[i] then max:=b[i];
writeln(max);
end;
end;
end;

[ROMA2PVT]

if a^[i,j] and ((i<>k) or ((i=k) and (j<>z))) then f:=false;

Вот отсюда и ноги ростут у вашей ошибки.

[leraaa]

Сообщение от ROMA2PVT

if a^[i,j] and ((i<>k) or ((i=k) and (j<>z))) then f:=false;

Вот отсюда и ноги ростут у вашей ошибки.

У меня здесь используется два типа, интежер и логический тип, ошибка говорит, наверное, непосредственно о их конфликте, но в данной строчке все переменные типа интежер...
Простите, я не понимаю, в чем ошибка =(
Можно объяснения для дурака?

[ROMA2PVT]

a^[i,j] and

ошибка в этом "условии".Вся штука в том что это ваще не условие.и оно ничего не выполняет.вот и выскакивает ошибка.

[leraaa]

ааа все) спасибо)

[ROMA2PVT]

Если помог то отзыв оставь.

[Hacker19_90]

Сообщение от ROMA2PVT

Если помог то отзыв оставь.

Надо было номерок стрельнуть лучше

[ROMA2PVT]

Надо было номерок стрельнуть лучше

Сорри за оффтоп.
Да ладно ещё настреляюсь.