Дан файл целых чисел. Удалить из него все отрицательные числа - PascalABC.NET - Ответ 9251527

if El>=0 then Write(F_out,El);

program File34;
var
  S:String;
  F_in,F_out: File of Integer;
  El:integer;
procedure printfile(s,t:string);
var
  f:file of integer;
  i:integer;
begin
  writeln(t);
  Assign(f,s);
  Reset(f);
  while not eof(f)do begin read(f,i);write(i:4);end;
  close(f);  
  writeln;
end;
begin
  Write('File1: '); 
  Readln(S);
  printfile(s,'Файл '+s);
  Assign(F_in,S);
  Reset(F_in);
  Assign(F_out,'~'+S);
  ReWrite(F_out);
  while not eof(F_in) do
   begin
     Read(F_in,El);
     if El>=0 then Write(F_out,El);
   end;
   Close(F_in);
   Close(F_out);
   Erase(F_in);
   Rename(F_out,S);
   printfile(s,'Файл '+s+' после обработки');
end.

program File34;
var
  S:String; 
  F: File of Integer;
  El,i:integer;
begin
  Write('File1: ');
  Readln(S);
  Assign(F,S);
  ReWrite(F);
  for i:=1 to 20 do write(F,Random(21)-10);
  Close(F);
  Reset(F);
  while not eof(F)do begin read(F,El);write(El:4);end;
  close(F);
end.