Что тут не так?

Program Runa;

const n=5;

m=5;

var

A:array[1 ... n, 1 ... m] of real;

i, j: integer;

begin

writeln ('матрица A (5x5) ') ;

for i:=1 to n do

for j:=1 to m do begin

write ('A[ ', i,',', j,' ] ') ;

readln (A[i, j]) ;

end;

write (A[i, j] : 2 : 0, ' ') ;

writeln;

begin

for i:=1 to n do

for j:=1 to m do begin

max:=1;

if max writeln ('max = ', max) ;

end;

end;

end.

в строчке max:=1; выдает что отсутствует переменная

В разделе var нужно описать переменную max.

Program Runa;

const

n=5;

m=5;

var

A:array[1 ... n, 1 ... m] of real;

i, j: integer;

max: real;

begin

writeln ('матрица A (5x5) ') ;

{Считываем матрицу с экрана}

for i:=1 to n do

for j:=1 to m do

begin

write ('A[ ', i,',', j,' ] = ') ;

readln (A[i, j]) ;

end;

{Присваиваем минимальное значение максимуму}

max:=0;

for i:=1 to n do

for j:=1 to m do

{Если в матрице число больше максимума - присваиваем максимуму значение из матрицы}

if (a[i, j]>max) then max:=a[i, j];

{Если максимум не 0 - значит в матрице есть положительные числа, выводим максимум}

if max>0 writeln ('max = ', max) else

Writeln ('Положительных элементов нет') ;

end.