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

var
    i, j, n: Byte;
    ar: Array[Byte, Byte] Of ShortInt;
    f, g: Text;
    temp, max: Byte;
    sum: Word;
begin
    Assign(f, 'f.txt'); Assign(g, 'g.txt');
    ReWrite(f); Randomize;
    repeat
        Write('n=');
        ReadLn(n);
    until (n > 0);
    for i := 0 to n - 1 do
    begin
        for j := 0 to n - 1 do
        begin
            ar[i, j] := Random(51) - 25;
            Write(ar[i, j]:4);
            if (ar[i, j] > 0)
            then
                Write(f, ' ', ar[i, j]);
        end;
        WriteLn;
    end;
    WriteLn; WriteLn;
    Close(f); Reset(f);
    sum := 0; max := 0;
    while (Not EoF(f)) do
    begin
        Read(f, temp); Write(temp:3);
        if (max < temp)
        then
            max := temp;
        Inc(sum, temp);
    end;
    Close(f); ReWrite(g); Reset(f);
    WriteLn(g, sum); WriteLn(g, max);
    while (Not EoF(f)) do
    begin
        Read(f, temp); Write(g, temp:3);
    end;
    Close(f); Close(g); Reset(g);
    ReadLn(g, sum); WriteLn; WriteLn; WriteLn(sum);
    ReadLn(g, max); WriteLn(max);
    while (Not EoLn(g)) do
    begin
        Read(g, temp); Write(temp:3);
    end;
    Close(g);
end.