Паскаль. квадратный двумерный массив (размер задаётся пользователем), заполнить случайными числами, найти максимальное значение по модулю

[SasaTet]

Помогите ,пожалуйста, написать программу в турбо паскале.
Нужно вывести квадратный двумерный массив так, чтобы пользователь задавал его самостоятельно(не более 10-ти), а заполнить массив нужно случайными цифрами от -10 до 10, найти максимальное значение по модулю в этом массиве и его индекс(строку и столбец, где находится максимальное значение).
Спасибо!

[newerow1989]

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

[Serge_Bliznykov]

одно уточнение.

Сообщение от SasaTet

найти максимальное значение по модулю

поэтому, надо заменить

Сообщение от newerow1989

If p[im,jm]<p[i,j] then

на

If abs(p[im,jm])<abs(p[i,j]) then

[newerow1989]

А, немножно не увидел... (Бывает)