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

  • Uses crt;
    const n=5;
    m=5;
    var a:array1..n,1..m of integer;
    i,j,max,t:integer;
    begin
    for i:=1 to n do
    begin
    for j:=1 to m do
    read(ai,j);
    end;
    t:=1;
    writeln;
    repeat
    max:=at,1;
    for i:=t to t do
    for j:=1 to m do
    if ai,j>max then max:=ai,j;
    writeln(max);
    inc(t);
    until t>n
    end.