Нужно сделать в Pascal это задание.

[Kazino96]

Друг попросил помочь ему с этим заданием, а я не знаю, как его правильно сделать.
Задание:
Все элементы с наибольшим значением в данной целочисленной квадратной матрице порядка N замените нулями, если эти элементы не принадлежат первой или последней строкам.

[newerow1989]

const n=10;
var p:array[1..n,1..n] of integer;
    i,j,max:integer;
begin
   Randomize;
   max:=0;
   For i:=1 to n do
   begin
      For j:=1 to n do
      begin
         p[i,j]:=Random(21);
         Write(p[i,j],'  ');
         If max<p[i,j] then
            max:=p[i,j];
      end;
      Writeln;
   end;
   Writeln;
   Writeln(max);
   Writeln;
   For i:=2 to n-1 do
   begin
      For j:=1 to n do
      begin
         If p[i,j]=max then
            p[i,j]:=0;
         Write(p[i,j],'  ');
      end;
      Writeln;
   end;
   Readln;
end.

Так что ли?