динамическая память!!!!

{$R-}
uses crt;
const nmax=20;
type
  Tmas=^TTmas;{одна строка матрицы}
  TTmas=array[1..1] of integer;
  Tmatr=^TTmatr;{матрица-массив указателей на строки}
  TTmatr=array[1..1] of Tmas;
var
  a:Tmatr;
  n,m,i,j,k:integer;
  f:boolean;
begin
clrscr;
randomize;
repeat
write('Количество строк до ',nmax,' n=');
readln(n);
until n in [1..nmax];
repeat
write('Количество столбцов до ',nmax,' m=');
readln(m);
until m in [1..nmax];
getmem(a,sizeof(TTmas)*2*n);{выделяем память под указатели на строки}
for i:=1 to m do
getmem(a^[i],sizeof(integer)*m);{для каждой строки память для хранения данных}
writeln ('Исходная матрица:');
for i:=1 to n do
 begin
  for j:=1 to m do
   begin
    a^[i]^[j]:=random(50)-5;
    write(a^[i]^[j]:4);
   end;
  writeln;
 end;
writeln;
f:=false;
for i:=1 to n do
 begin
  k:=0;
  for j:=1 to m do
  if a^[i]^[j]>0 then k:=k+1;{считаем положительные в строке}
  if k=m then f:=true; {если все}
 end;
if f then write('Строка из положительных элементов есть')
else  write('Строки из положительных элементов нет');
for i:=1 to n do
freemem(a^[i],sizeof(integer)*m); {освобождаем память в обратном порядке, сначала удалим строки}
freemem(a,sizeof(TTmas)*2*n); {потом указатели на них}
readln
end.