паскаль, как исправить ошибку?

[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;

[Stilet]

a^

А где она у тебя описана? И зачем указателем?
Какое задание вообще?

[ROMA2PVT]

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

Я ей в другом посту уже указал на ошибку.

[Stilet]

Ну что за люди...
leraaa, зачем кросспостить?