Сформировать массив из количества элементов соответствующей строки матрицы, больших данного числа

var a:array[1..100,1..100] of integer;
    b:array[1..10000] of integer;
    n,m,i,j,c,p:integer;
    
    begin
    WriteLn('Ââåäèòå ÷èñëî ñòðîê:');
    ReadLn(n);
    WriteLn('Ââåäèòå ÷èñëî ñòîëáöîâ:');
    ReadLn(m);
    WriteLn('Ââåäèòå ýëåìåíòû ìàññèâà:');
    for i:=1 to n do begin
      for j:=1 to m do begin
       ReadLn(a[i,j]);
       end;
    end;
    for i:=1 to n do begin
      for j:=1 to m do begin
       Write(a[i,j]:4);
       end;
       Writeln();
       Writeln();
    end;
    Writeln('Ââåäèòå ÷èñëî:');
    readLn(c);
    p:=1;
    for i:=1 to n do begin
      for j:=1 to m do begin
        if a[i,j]>c then begin
          b[p]:=a[i,j];
          Inc(p);
          end;
      end;
    end;
    for i:=1 to p-1 do begin
     Write(b[i]:4);
     end;
end.