[chainik]

Согласен. небольшой ляпсус.
Здесь исправленная версия задачи 3

Код:

program Project3;

{$APPTYPE CONSOLE}

var
Sinp,Sout:string;
Finp,Fout:textfile;
z:extended;

begin
write('InputFileName: ');readln(Sinp);
write('OutFileName: ');readln(Sout);

assign(Finp,Sinp);reset(Finp);
assign(Fout,Sout);rewrite(Fout);

while not eof(Finp) do
    begin
    read(Finp,z);
    if z >=0 then
        write(Fout,z,' ');
    end;
closefile(Finp);
closefile(Fout);
readln;
end.