Нахождение в массиве макс. и мин. значения. Паскаль

[Akainu]

program info;
var a:array[1..10,1..10] of real; 
z,k,z1,k1,i,j,n,m:integer; 
min,max:real;
begin
read(m,n);
for i:=1 to n do
for j:=1 to m do
begin
read(A[i,j]);
max:=a[1,1];
if A[i,j]>max then 
begin
max:=A[i,j];
k:=i;
z:=j;
end;
min:=A[1,1];
if A[i,j]<min then
begin
min:=A[i,j];
k1:=i;
z1:=j;
end;
end;
A[k,z]:=min;
A[k1,z1]:=max;
for i:=1 to n do
begin
writeln
for j:=1 to m do
write(A[i,j]:5:5)
end;
end.

Так верно?

[Alex11223]

Во-первых несколько ошибок типа точка вместо запятой, нету закрывающей скобки и т.п.
Во-вторых перед тем, как искать max/min (перед этим циклом) необходимо присвоить им значения 1 элемента массива. т.е. например так max:=a[1,1] и аналогично для min. Иначе Паскаль присваивает всем не инициализированным переменным 0.
Мб еще что-то, дальше не смотрел.

И используйте тег [CODE] (значок #) для сохранения форматирования и подсветки кода в сообщении.