Найти наибольший элемент матрицы Х(4,5). Записать единицы в те строку и столбец, где он находится — Pascal(Паскаль)

program dgh;

var
  x: array [1 .. 4, 1 .. 5] of integer;
  i, j, max, s1, s2: integer;

begin
  writeln('Vvedite massiv:');

  for i := 1 to 4 do
    for j := 1 to 5 do
    begin
      write('X[', i, ',', j, ']=');
      readln(x[i, j]);
    end;
  writeln;
  writeln('Vot vvedennyi massiv X:');
  for i := 1 to 4 do
  begin
    for j := 1 to 5 do
      write(x[i, j]:3);
    writeln;
  end;

  max := x[1, 1];
  for i := 1 to 4 do
    for j := 1 to 5 do
      if x[i, j] > max then
      begin
        max := x[i, j];
        s1 := i;
        s2 := j;
      end;
  writeln;
  writeln('MAX= ', max);
  writeln;

  for i := 1 to 4 do
    x[i, s2] := 1;
  for j := 1 to 5 do
    x[s1, j] := 1;

  { ************************************ }
  writeln('Vot PREOBRAZOVANNYI massiv X:');
  for i := 1 to 4 do
  begin
    for j := 1 to 5 do
      write(x[i, j]:3);
    writeln;
  end;

  readln;

end.