Дан файл вещественных чисел с именем Name1. Создать...

Program xxx;
uses
  crt;
var
  f1,f2,f3: file of real;
  size,i,n: byte;
  x: real;
begin
  clrscr;
  assign(f1,'name1');
  rewrite(f1);
  write('wwedite kol-wo elementow: ');
  read(n);
  writeln ('wwedite sami elementi: ');
  for i:= 0 to n-1 do
  begin
    seek(f1,i);
    read(x);
    write(f1,x);
  end;
  close(f1);
  assign(f1,'name1');
  assign(f2,'name2');
  assign(f3,'name3');
  reset(f1);
  rewrite(f2);
  rewrite(f3);
  size:=filesize(f1);
  i:=0;
  write('Sodergimoe name1: ');
  repeat
    seek(f1,i);
    read(f1,x);
    write(f2,x);
    write(x:2:2,' ');
    inc(i,2);
  until i>=size;
  close(f2);
  writeln;
  write('Sodergimoe name2: ');
  i:=1;
  repeat
    seek(f1,i);
    read(f1,x);
    write(f3,x);
    write(x:2:2,' ');
    inc(i,2);
  until i>=size;
  close(f3);
  close(f1);
  readkey;
end.

program xxx;
var
 n1,n2,n3:file of real;
 r1:array[1..10000]of real;
 hm,i:integer;
begin
 assign('Name1',n1);
 assign('Name2',n2);
 assign('Name3',n3);
 reset(n1);
 while not (EOF(n1)) do begin
  hm:=hm+1;
  read(n1,r1[hm]);
 end;
 close(n1);
 rewrite(n2);
 rewrite(n3);
 for i:=0 to hm-1 do begin
  if i mod 2=0 then write(n2,r1[i+1]) else write(n3,r1[i+1]);
 end;
 close(n2);
 close(n3);
end.