Дан двумерный массив 4х7 (числа вводятся с клавиатуры). Составить программу, которая выведет на экран максимальное число в каждой строке.
program pr;
uses crt;
var a:array[1..4,1..7] of integer;
i,j:integer;
b:array[1..4] of integer;
begin
clrscr;
writeln('vvedite massiv');
for i:=1 to 4 do
for j:=1 to 7 do
readln(a[i,j]);
b[i]:=a[i,1];
end;
if a[i,j]>=b[i] then b[i]:=a[i,j];
writeln('ishodny massiv');
write(a[i,j]:8);
writeln;
writeln('max chisla strok');
writeln(b[i]);
readln;
end.
Буду благодарна, если отметите