Здравствуйте, tanya.hryanina!
Вообще-то такое писали в Турбо Паскале, а во Free Pascal есть нормальные динамические массивы a:array of array of integer.
Давно не писал эти getmem-freemem, вроде так. Код рабочий.

[code lang=pascal]uses crt;
{$R-}{отключим проверку диапазона}
const nmax=10;
type
Tmas=^TTmas;{одна строка матрицы}
TTmas=array[1..1] of integer;
Tmatr=^TTmatr;{матрица-массив указателей на строки}
TTmatr=array[1..1] of Tmas;
var
x:Tmatr;
n,m,k,i,j,min,imn,jmn:integer;
begin
clrscr;
randomize;
repeat
write('Количество строк от 2 до ',nmax,' m=');
readln(m);
until m in [2..nmax];
repeat
write('Количество столбцов от 2 до ',nmax,' n=');
readln(n);
until n in [2..nmax];
getmem(x,sizeof(TTmatr)*m);{выделяем память под указатели на строки}
for i:=1 to m do
getmem(x^[i],sizeof(integer)*n);{для каждой строки память для хранения данных}
writeln ('Исходная матрица X:');
for i:=1 to m do
begin
for j:=1 to n do
begin
x^[i]^[j]:=random(50);
write(x^[i]^[j]:4);
end;
writeln;
end;
min:=x^[1]^[j];
imn:=1;
jmn:=1;
for i:=1 to m do
for j:=1 to n do
if x^[i]^[j]<min then
begin
min:=x^[i]^[j];
imn:=i;
jmn:=j;
end;
writeln('Минимальный элемент=',min,' в строке ',imn,' в столбце ',jmn);
if imn<m then
for i:=imn to m-1 do
for j:=1 to n do
x^[i]^[j]:=x^[i+1]^[j];
m:=m-1;
if jmn<n then
for j:=jmn to n-1 do
for i:=1 to m do
x^[i]^[j]:=x^[i]^[j+1];
n:=n-1;
writeln('Удаление строки ',imn,' и столбца ',jmn);
for i:=1 to m do
begin
for j:=1 to n do
write(x^[i]^[j]:4);
writeln;
end;
write('Press Enter...');
for i:=1 to m+1 do
freemem(x^[i],sizeof(integer)*(n+1)); {освобождаем память в обратном порядке, сначала удалим строки}
freemem(x,sizeof(TTmas)*(m+1)); {потом указатели на них}
readln
end.[/code]