Мынаны қарап көріңдерші, қолымда Паскалім болмай тексере алмадым. Қате болса ренжімең:
program z_array;
uses crt;
var a:array[1..8,1..8] of real;
i,j,max:byte;
begin
clrscr;
writeln('Matritsa elem. engiz');
for i:=1 to i do
for j:=1 to j do
begin
write('a[',i,',',j,']= ');
readln(a[i,j]);
end;
writeln;
writeln('Berilgen matritsa');
for i:=1 to i do
begin
for j:=1 to j do
write(a[i,j]:7:2);
writeln;
end;
writeln;
{Осы жерде матрица бағандарындағы max іздейміз}
for i:=1 to j do
begin
max:=a[i,j]
for j:=1 to i do
if max>a[i,j] then max:=max
else max:=a[i,j];
writeln('Bagan',i,' Maximum mani', a[i,j]:7:2);
end;
readln;
end.