Задан массив X(N,N). Определить максимальный элемент каждой строки массива — Pascal(Паскаль)

const n=3;
var
 x:array[1..n,1..n]of integer;
 m:array[1..n]of integer;
 i,a:integer;
begin
 for i:=1 to n do begin
  for a:=1 to n do begin
   x[i,a]:=random(30);
   write(x[i,a]:3);
   if x[i,a]>m[i] then m[i]:=x[i,a];
  end;
  writeln;
 end;
 for i:=1 to n do writeln(m[i]);
 readln; 
end.

uses crt;
var a:array[1..100,1.100] of integer;
     n.i.j.max:integer;
begin
clrscr;
writeln('n ');
readln(n);
for i:=1 to n do 
  for j:=1 to n do
   begin
      writeln('a[',i,',',j,']= ');
      readln(a[i,j]) 
   end;
 
for i:=1 to n do
 begin
  for j:=1 to n do
  write(a[i,j]:4);
  writeln;
 end;
 
for i:=1 to n do
begin
 max:=a[i,1];
 for j:=2 to n do
  if a[i,j]>max then max:=a[i,j];
  writeln('Max ',i,' -y stroki= ',max);
end;
readln;
end.

var
  X: array [1..3, 1..3] of integer;
  Y: array [1..3] of integer;
  I, J: integer;
begin
  // initialization
  for I:=1 to 3 do
    for J:=1 to 3 do
      X[I][J] := Random(100); // random number
 
  // Finding Max
  for I:=1 to 3 do begin
    Y[I] := X[1];
    for J:=2 to 3 do
      if Y[I] < X[I][J] then
        Y[I] := X[I][J]
  end;
 
  // output
  for I:=1 to 3 do begin
    WriteLn('Max for line ', I, ' = ', Y[I]);
end;

Program min;
Uses crt;
 var b:array [1..100,1..100] of integer;
     a:array [1..100] of integer;
     i,j,n,max:integer;
begin
clrscr;
 Writeln (' vvedite razmernost matrici ');
 Readln (n);
  for i:=1 to n do
    for j:=1 to n do begin
                     write ('B[',i,',',j,']=');
                     Readln (b[i,j]);
                     end;
writeln (' Polychena matrica ');
for i:=1 to n do
 begin
 for j:=1 to n do
    Write ('  ',b[i,j],' ');
    writeln;
 end;
writeln;
for i:=1 to n do begin
                      max:=b[i,1];
                      for j:=2 to n do
                      if b[i,j]>=max then max:=b[i,j];
                      a[i]:=max;
                      end;
Writeln (' Maxim elementy strok ');
for i:=1 to n do
write (a[i]:4);
Readln
end.

uses
  crt;
const
  str=4;{количество строк}
  col=4;{количество столбцов}
var
  a:array [1..str,1..col] of integer;
  i,j,max:integer;
begin
  clrscr;
  {заполняем и выыводим матрицу}
  writeln('Исходная матрица:');
  for i:=1 to str do
  begin
    for j:=1 to col do
    begin
      a[i,j]:=random(8)-4;
      write(a[i,j]:2,' ')
    end;
    writeln
  end;
  {находим максимум каждой строки}
  for i:=1 to str do
  begin
    max:=a[i,1];
    for j:=2 to col do
      if a[i,j]>max then
        max:=a[i,j];
    writeln('Максимальный элемент ',i,' строки = ',max)
  end;
end.