Из положительных элементов матрицы N сформировать матрицу M

var
n:array[1..10,1..10]of integer;
i,j:integer;
begin
randomize;
for i:=1 to 10 do
for j:=1 to 10 do
n[i,j]:=random(50)-20;
for i:=1 to 10 do writeln;
begin
writeln;
for j:=1 to 10 do
write(n[i,j]:3);
end;
end.

uses crt;
const m=10; //размер матрицы лучше константой
var n:array[1..m,1..m]of integer;
i,j,m1,min,k,l,kmax:integer;
begin
clrscr;
randomize;
writeln('Ishodnaya matrica:');//Ваша матрица, ввод слегка оптимизировал
for i:=1 to m do
   begin
     for j:=1 to m do
       begin
         n[i,j]:=random(50)-20;
         write(n[i,j]:4);
       end;
     writeln;
   end;
min:=m; //за мин принимаем длину строки
for i:=1 to m do //идем по строкам
   begin
     k:=0;j:=1;m1:=m; //запоминаем начальную длину строки, т.к. она будет убывать, а с константой такие вещи не проходят
     while j<=m1 do  //пока не достигнем изменяющейся длины строки
       begin
         if n[i,j]<=0 then //если число не положительное
            begin
              inc(k); //считаем его
              for l:=j to m1-1 do //сдвигаем строку влево, удаляем этот элемент
              n[i,l]:=n[i,l+1];
              n[i,m1]:=0; //в конец пишем 0
              dec(m1); //уменьшаем длину строки на 1
            end
         else inc(j); //если положительное, идем лальше
       end;
     if k<min then min:=k; //находим наименьшее количество неположительных в строке
   end;
kmax:=m-min; //считаем максимальную оставшуюся длину строки
writeln('Rezultat:');  //выводим результат, как сказано
for i:=1 to m do
   begin
     for j:=1 to kmax do
     write(n[i,j]:4);
     writeln;
   end;
readln
end.