Paskal Двумерный массив

[JohnOtto]

Люди, подскажите позжалуйста!!!
Kак удалить строку и столбец на пересечении которых стоит минимальный элемент?????в двумерном массиве

[Манжосов Денис :)]

program ameba;
var
  a: array [1..10, 1..10] of integer;
  i,j: byte;
  g,k: byte;
  min: integer;
begin
min := 100;
  Randomize;
  for j := 1 to 10 do
   for i := 1 to 10 do
    a[i,j] := Random(30);
  for j := 1 to 10 do
   for i := 1 to 10 do
     if a[i,j] < min then begin Min := a[i,j]; g := i; k := j; end;
  for i := 1 to 10 do
   a[g, i] := 0;
  for i := 1 to 10 do
   a[i, j] := 0;
end.

Всё.