элемент массива Опции

[san]

В пятницу задали вот такую задачку В данной действительной квадратной матрице порядка n найти наибольший по модулю элемент. Получить квадратную матрицу порядка n — 1 путем отбрасывания в исходной матрице строки и столбца, на пересечении которых расположен элемент с найденным значением. Есть начало программы но как удалить строку и столбец я не знаю.

var
a:array[1..100,1..100] of integer;
b:array[1..100,1..100] of integer;
i,j,imax,jmax,max,n:integer;
begin
write('Razmernost= ');
readln(n);
for i:=1 to n do
 begin
  for j:=1 to n do
   begin
    a[i,j]:=random(256);
    write(a[i,j]:4);
   end;
  writeln;
 end;
max:=a[1,1];
for i:=1 to n do
 begin
  for j:=1 to n do
   begin
    if abs(a[i,j])>max then
    begin
    max:=a[i,j];
    imax:=i;
    jmax:=j;
    end;
   end;
 end;
 writeln(max);
   readln;
end.