Задания с файлами

uses crt;
var f1,f2:file of integer;
    a,n:integer;
begin
clrscr;
assign(f1,'file1');
rewrite(f1);
assign(f2,'file2');
rewrite(f2);
writeln('Введите в файл целые числа, окончание ввода 0:');
repeat
readln(a);
if a<>0 then write(f1,a);
until a=0;
writeln('Содержание исходного файла:');
reset(f1);
while not eof(f1) do
 begin
  read(f1,a);
  write(a,' ');
  if a<50 then write(f2,a);
 end;
close(f1);
writeln;
if filesize(f2)=0 then
write('Чисел меньше 50 нет!')
else
 begin
  writeln('Числа меньше 50:');
  reset(f2);
  while not eof(f2) do
   begin
    read(f2,a);
    write(a,' ');
   end;
  close(f2);
 end;
readln
end.

uses crt;
var f1,f2,f3:text;
    nf1,nf2,nf3,s:string;
begin
clrscr;
write('Имя 1 файла для чтения: ');
readln(nf1);
nf1:=nf1+'.txt';
assign(f1,nf1);
{$I-} reset(f1);  {$I+}
if IOResult <> 0 then
 begin
  writeLn('Не могу открыть файл ',nf1);
  writeLn('Работа программы завершена. Нажмите ENTER');
  readln;
  exit;
 end;
write('Имя 2 файла для чтения: ');
readln(nf2);
nf2:=nf2+'.txt';
assign(f2,nf2);
{$I-} reset(f2);  {$I+}
if IOResult <> 0 then
 begin
  writeLn('Не могу открыть файл ',nf2);
  writeLn('Работа программы завершена. Нажмите ENTER');
  readln;
  exit;
 end;
write('Имя файла для записи: ');
readln(nf3);
nf3:=nf3+'.txt';
assign(f3,nf3);
rewrite(f3);
readln(f1,s);
write(f3,s);
close(f1);
reset(f2);
readln(f2,s);
write(f3,s);
write('Файлы ',nf1,' и ',nf2,' объединены в файл ',nf3);
close(f3);
readln
end.