Дана матрица 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.