Pascal 每行中的最大值

我有个问题要问你。我需要在每行中写入最大元素。例如，我的表格：

1 2 3 4
5 6 7 8
9 10 11 12

我想要4,8,12 我试过了，但没有结果：

Program Lab2;
type A=array[1..5,1..5] of integer;
var x:A;
i,j,s,max:integer;
Begin
 writeln('Write date:');
 for i:=1 to 5 do
  for j:=1 to 5 do
    read(x[i,j]);

 for i:=1 to 5 do
  for j:=1 to 5 do
  begin
   max:=x[i,1];
    if (max<x[i,j]) then max:=x[i,j];
   writeln(max);
  end;
 readln;

程序Lab2；
类型A=整数的数组[1..5,1..5]；
var x:A；
i、 j，s，max：整数；
开始
writeln（'写入日期：'）；
对于i:=1到5 do
对于j:=1到5 do
读（x[i，j]）；
对于i:=1到5 do
对于j:=1到5 do
开始
最大值：=x[i，1]；
如果（max只有三个小错误：

1） 
if（maxYour writeln应该在外部，与max相同：=x[i，1]
与read一起，您只读取一个字符
-至少对于整数是错误的。您是对的，很长时间没有用pascal编程，我很抱歉
Program Lab2;
const SIZE=3;
type A=array [1..SIZE,1..SIZE] of integer;
var x:A;
i,j,max:integer;
Begin
  writeln('Write date:');
  for i:=1 to SIZE do begin
    for j:=1 to SIZE do begin
      readln(x[i,j]);
    end;
  end;
  for i:=1 to SIZE do begin
    max:=x[i,1];
    for j:=1 to SIZE do begin
      if (max<x[i,j]) then begin
        max:=x[i,j];
      end;
    end;
    writeln('the max value of the row ',i ,' is ',max);
end;
 readln;
 readln;
end.