Создать файл, компоненты которого случайные целые числа

{$MODE TP}
var
    f: File Of Integer;
    numb: Integer;
    i, n, count: Word;
begin
    repeat
        Write('How much numbers to generate? ');
        ReadLn(n);
    until (n > 0);
    Write('Generated array:');
    Assign(f, 'f.dat'); ReWrite(f);
    for i := 0 to n - 1 do
    begin
        numb := Random(5001) - 2500;
        Write(numb:6);
        Write(f, numb);
    end;
    Close(f); ReSet(f);
    count := 0; WriteLn;
    while (Not EoF(f)) do
    begin
        Read(f, numb);
        if ((Odd(numb)) Or (numb mod 3 = 0))
        then
            Inc(count);
    end;
    Close(f);
    WriteLn('Asnwer: ', count);
end.

{$MODE TP}
var
    f: Text;
    numb: Integer;
    i, n, count: Word;
begin
    repeat
        Write('How much numbers to generate? ');
        ReadLn(n);
    until (n > 0);
    Write('Generated array:');
    Assign(f, 'f.txt'); ReWrite(f);
    for i := 0 to n - 1 do
    begin
        numb := Random(5001) - 2500;
        Write(numb:6);
        Write(f, numb:6);
    end;
    Close(f); ReSet(f);
    count := 0; WriteLn;
    while (Not EoF(f)) do
    begin
        Read(f, numb);
        if ((Odd(numb)) Or (numb mod 3 = 0))
        then
            Inc(count);
    end;
    Close(f);
    WriteLn('Asnwer: ', count);
end.

{$MODE TP}
var
    f, g: File Of Integer;
    numb: Integer;
    i, n, count: Word;
begin
    repeat
        Write('How much numbers to generate? ');
        ReadLn(n);
    until (n > 0);
    Write('Generated array:');
    Assign(f, 'f.dat'); ReWrite(f);
    for i := 0 to n - 1 do
    begin
        numb := Random(5001) - 2500;
        Write(numb:6);
        Write(f, numb);
    end;
    Close(f); ReSet(f);
    Assign(g, 'g.dat'); ReWrite(g);
    count := 0; WriteLn;
    while (Not EoF(f)) do
    begin
        Read(f, numb);
        if ((Odd(numb)) Or (numb mod 3 = 0))
        then
        begin
            Inc(count);
            Write(g, numb);
        end;
    end;
    Close(f); Close(g);
    WriteLn('Asnwer: ', count);
    ReSet(g);
    while (Not EoF(g)) do
    begin
        Read(g, numb);
        Write(numb:6);
    end;
    Close(g);
end.

{$MODE TP}
var
    f, g: Text;
    numb: Integer;
    i, n, count: Word;
begin
    repeat
        Write('How much numbers to generate? ');
        ReadLn(n);
    until (n > 0);
    Write('Generated array:');
    Assign(f, 'f.txt'); ReWrite(f);
    for i := 0 to n - 1 do
    begin
        numb := Random(5001) - 2500;
        Write(numb:6);
        Write(f, numb:6);
    end;
    Close(f); ReSet(f);
    Assign(g, 'g.txt'); ReWrite(g);
    count := 0; WriteLn;
    while (Not EoF(f)) do
    begin
        Read(f, numb);
        if ((Odd(numb)) Or (numb mod 3 = 0))
        then
        begin
            Inc(count);
            Write(g, numb);
        end;
    end;
    Close(f); Close(g);
    WriteLn('Asnwer: ', count);
    ReSet(g);
    while (Not EoF(g)) do
    begin
        Read(g, numb);
        Write(numb:6);
    end;
    Close(g);
end.