В текстовом файле содержится последовательность действительных чисел. В заданной последовательности удалить члены, порядковые номера которых кратны пяти. Измененную последовательность переписать в результирующий файл. Имена исходного и результирующего файлов вводятся с клавиатуры — Pascal(Паскаль)

uses crt;
var f,g:text;
    i:integer;
    a:real;
    name1,name2:string;
begin
clrscr;
write('Имя файла для чтения: ');
readln(name1);
name1:=name1+'.txt';
assign(f,name1);
{$I-} reset(f);  {$I+}
if IOResult <> 0 then
 begin
  writeLn('Не могу открыть файл ',name1);
  writeLn('Работа программы завершена. Нажмите ENTER');
  readln;
  exit;
 end;
write('Имя файла для записи: ');
readln(name2);
name2:=name2+'.txt';
assign(g,name2);
rewrite(g);
i:=0;
while not eof(f) do
 begin
  read(f,a);
  i:=i+1;
  if i mod 5<>0 then write(g,a:0:2,' ');
 end;
close(f);
close(g);
write('Файл ',name1,' переписан в файл ',name2);
readln
end.