Из элементов введенного массива сформировать новый массив, содержащий положительные числа

const
    m = 5;
 
var
    ar : Array[1..100, 1..m] Of Integer;
    ar2 : Array[1..500] Of Integer;
    arSize, j : Byte;
    ar2Size, i, maxID : Word;
    f : Text;
 
begin
    Assign(f, 'f.txt'); Reset(f);
    arSize := 0;
    while ((Not(EoF(f))) And (arSize <= 100)) do
    begin
        Inc(arSize);
        for j := 1 to m do
        begin
            Read(f, ar[arSize, j]);
            Write(ar[arSize, j], #9);
        end;
        WriteLn;
    end;
    Close(f);
    WriteLn; WriteLn; ar2Size := 0;
    for i := 1 to arSize do
        for j := 1 to m do
            if (ar[i, j] > 0)
            then
            begin
                Inc(ar2Size);
                ar2[ar2Size] := ar[i, j];
                Write(ar2[ar2Size], ' ');
            end;
    WriteLn;
    if (ar2Size = 0)
    then
        WriteLn('Polozhitelnyh elementov net.')
    else
    begin
        maxID := 1;
        for i := 2 to ar2Size do
            if (ar2[i] > ar2[maxID])
            then
                maxID := i;
        Write('maxID: ');
        for i := 1 to ar2Size do
            if (ar2[maxID] = ar2[i])
            then
                Write(i, ' ');
    end;
end.

const
    m = 5;
 
var
    ar : Array Of Array[1..m] Of Integer;
    ar2 : Array Of Integer;
    j : 1..m;
    i, maxID : Word;
    f : Text;
 
begin
    Assign(f, 'f.txt'); Reset(f);
    SetLength(ar, 0);
    while ((Not(EoF(f))) And (Length(ar) <= 100)) do
    begin
        SetLength(ar, Length(ar) + 1);
        for j := 1 to m do
        begin
            Read(f, ar[Length(ar) - 1, j]);
            Write(ar[Length(ar) - 1, j], #9);
        end;
        WriteLn;
    end;
    Close(f);
    WriteLn; WriteLn; SetLength(ar2, 0);
    for i := 0 to Length(ar) - 1 do
        for j := 1 to m do
            if (ar[i, j] > 0)
            then
            begin
                SetLength(ar2, Length(ar2) + 1);
                ar2[Length(ar2) - 1] := ar[i, j];
                Write(ar2[Length(ar2) - 1], ' ');
            end;
    WriteLn;
    if (Length(ar2) = 0)
    then
        WriteLn('Polozhitelnyh elementov net.')
    else
    begin
        maxID := 0;
        for i := 1 to Length(ar2) - 1 do
            if (ar2[i] > ar2[maxID])
            then
                maxID := i;
        Write('maxID: ');
        for i := 0 to Length(ar2) - 1 do
            if (ar2[maxID] = ar2[i])
            then
                Write(i, ' ');
    end;
end.

    while ((Not(EoF(f))) And (arSize <= 100)) do
    begin
        Inc(arSize);

    while ((Not(EoF(f))) And (arSize < 100)) do
    begin
        Inc(arSize);

const
  nmax=100; m=5;
var
  a: array [1..nmax,1..m] of Integer;
  c: array [1..nmax*m] of Integer;
  na, nc, j, jm: Integer;
begin
  Assign(input,'input.txt'); Reset(input);
  WriteLn('A=');
  jm:=1; {na:=0; nc:=0;}
  while not SeekEOF and (na<100) do begin
    Inc(na);
    for j:=1 to m do begin
      Read(a[na,j]); Write(a[na,j]:8);
      if a[na,j]>0 then begin
        Inc(nc); c[nc]:=a[na,j];
        if c[nc]>c[jm] then jm:=nc;
      end;
    end;
    ReadLn; WriteLn;
  end;
  WriteLn('C=');
  for j:=1 to nc do Write(c[j]:8); WriteLn;
  if nc>0 then WriteLn('Индекс Cmax = ',jm);
end.

const
  nmax=100; m=5;
var
  a: array [1..nmax,1..m] of Integer;
  c: array [1..nmax*m] of Integer;
  na, nc, j, im, jm: Integer;
begin
  Assign(input,'input.txt'); Reset(input);
  WriteLn('A=');
  im:=1; jm:=1; {na:=0; nc:=0;}
  while not SeekEOF and (na<100) do begin
    Inc(na);
    for j:=1 to m do begin
      Read(a[na,j]); Write(a[na,j]:8);
      if a[na,j]>0 then begin
        Inc(nc); c[nc]:=a[na,j];
      end;
      if a[na,j]>a[im,jm] then begin
        im:=na; jm:=j;
      end;
    end;
    ReadLn; WriteLn;
  end;
  WriteLn('C=');
  for j:=1 to nc do Write(c[j]:8); WriteLn;
  if nc>0 then WriteLn('Номер Amax = ',(im-1)*m+jm);
end.

var
  a: array of Integer;
  na: Integer;
begin
  na:=0; SetLength(a,100);
  while not EOF do begin
    if na>=Length(a) then
      SetLength(a,Length(a)+Length(a) div 2);
    Read(a[na]); Inc(na);
  end;
...