дана матрица 5 на 5, надо сделать такую программу которая с каждой строки

будет выводить максимальное число.

типо ложно так выглядеть

2 3 4 5 6

4 6 3 2 4

5 6 7 8 3

2 5 3 4 6

3 4 5 9 0

первая строка 6

второая 6

третья 8

четвертая 6

пятая 9

Var a:array [1 ... 5, 1 ... 5] of integer; i, j, max:integer;

begin

max:=0;

for i:=1 to 5 do

for j:=1 to 5 do

readln (a[i, j]) ;

for i:=1 to 5 do begin

for j:=1 to 5 do

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

writeln (t,' = ', max) ; inc (t) ; max:=0; end;

readln;

end.