Создать два новых файла, первый из которых содержит элементы исходного файла с четными номерами, а второй — с нечетными.

uses crt;
var f,g,h:file of real;
    a:real;
    i:integer;
begin
clrscr;
assign(f,'name1');
rewrite(f);
assign(g,'name2');
rewrite(g);
assign(h,'name3');
rewrite(h);
writeln('Введите в файл вещественные числа числа, окончание ввода 0:');
repeat
readln(a);
write(f,a);
until a=0;
writeln('Содержание исходного файла:');
reset(f);
for i:=0 to filesize(f)-1 do
 begin
  read(f,a);
  write(a:0:2,' ');
  if odd(i) then write(h,a)
  else write(g,a);
 end;
close(f);
writeln;
writeln('Содержание файла Name1');
reset(g);
for i:=0 to filesize(g)-1 do
 begin
  read(g,a);
  write(a:0:2,' ');
 end;
close(g);
writeln;
writeln('Содержание файла Name2');
reset(h);
for i:=0 to filesize(h)-1 do
 begin
  read(h,a);
  write(a:0:2,' ');
 end;
close(h);
readln
end.

uses crt;
var name1,name2,name3:text;
    n:integer;
    s:string;
    
BEGIN
 writeln('для открытия файла нажмите клавишу...');
 repeat until keypressed;
 assign(name1,'name1');
 assign(name2,'name2');
 assign(name3,'name3');
 reset(name1);
 rewrite(name2);
 rewrite(name3);
 writeln('содержимое файла* name1: ');
 n:=0;
 while not eof(name1) do begin
    readln(name1,s);
    writeln(s);
    if odd(n)=false then writeln(name2,s)
    else writeln(name3,s);
    inc(n);
 end;
 
 writeln;
 writeln('содержимое файла name2: ');
 reset(name2);
 while not eof(name2) do begin
    readln(name2,s);
    writeln(s);
 end;
 
 writeln;
 writeln('содержимое файла name3: ');
 reset(name3);
 while not eof(name3) do begin
    readln(name3,s);
    writeln(s);
 end;
 
 close(name1);
 close(name2);
 close(name3);
 writeln('нажмите ENTER для выхода.');
 readln;
END.