Дана матрица 5 на 5.надо создать такую программу которая будет выводить максимальное число каждой из строки.помогите плиз)

uses crt;const n=5;m=5;var a:array[1..n,1..m] of integer;i,j,max,t:integer;beginfor i:=1 to n dobeginfor j:=1 to m doread(a[i,j]);end;t:=1;writeln;repeatmax:=a[t,1];for i:=t to t dofor j:=1 to m doif a[i,j]>max then max:=a[i,j];writeln(max);inc(t);until t>nend.