Дан текстовый файл содержащий вещественные числа по одному в каждой строке. Поместить эти числа в другой файл - Turbo Pascal

Формулировка задачи:

Дан текстовый файл содержащий вещественные числа по одному в каждой строке. Поместить эти числа в другой файл по 6 в строку перед десятичной точкой оставить 5 знаков после точки 8 знаков.

Решение задачи: «Дан текстовый файл содержащий вещественные числа по одному в каждой строке. Поместить эти числа в другой файл»

Листинг программы

var f,g:text;
    a:real;
    k:integer;
begin
assign(f,'input.txt');
reset(f);
assign(g,'output.txt');
rewrite(g);
k:=0;
while not eof(f) do
 begin
  read(f,a);
  write(g,a:14:8);
  k:=k+1;
  if k=6 then
   begin
    writeln(g);
    k:=0
   end;
 end;
close(f);
close(g);
writeln('Числа из файла input.txt переписаны в файл output.txt');
readln
end.

Объяснение кода листинга программы

В начале кода объявляются переменные: f, g и a типа text, а также k типа integer.
Затем происходит назначение переменным f и g различных функций: f получает значение 'input.txt', а g - 'output.txt'.
Далее происходит перезапись содержимого файла g с помощью функции rewrite.
Переменная k инициализируется значением 0.
Затем происходит цикл while, который выполняется до тех пор, пока не будет достигнут конец файла (EOF).
Внутри цикла происходит чтение значения из файла f и запись его в файл g с помощью функции read и функции write соответственно. Значение a записывается в файл g с помощью формата a:14:8.
После каждого прочтения значения из файла f переменная k увеличивается на 1.
Если значение k равно 6, то выполняется блок begin...end, который выводит значение a в файл g с помощью функции write.
После окончания блока begin...end значение k сбрасывается обратно на 0.
По завершении чтения файла f происходит закрытие файлов f и g с помощью функций close.
В конце программы выводится сообщение 'Числа из файла input.txt переписаны в файл output.txt' с помощью функции writeln.
Программа завершается с помощью функции readln.