Пусть А — двумерный массив целых чисел размерности N*N. Составить программу, которая обнуляет все положительные элементы, стоящие перед максимальным — Pascal(Паскаль)

uses crt;

const
  n = 5;

var
  a: array [1 .. n, 1 .. n] of integer;
  i, j, k, max: integer;

begin
  clrscr;
  randomize;
  max := -maxint;
  for i := 1 to n do
    for j := 1 to n do
      a[i, j] := random(100);
  for i := 1 to n do
    for j := 1 to n do
      if a[i, j] > max then
      begin
        max := a[i, j];
        if (i > 1) and (j > 1) then
          a[i, j - 1] := 0;
      end;
  for i := 1 to n do
  begin
    writeln;
    for j := 1 to n do
      write(a[i, j]:5);
  end;
  writeln;
  writeln;
  write('max=', max);

end.