Обработка текстовых файлов - Pascal ABC

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

Пусть на МД имеется текстовый файл ID.DAT, который содержит числовые значения вещественного типа по два числа в каждой строке - значения аргумента и функции соответственно. Количество пар чисел не более 20. Составить программу, которая читает файл, значения аргумента и функции записывает в одномерные массивы и создает 2 файла: отдельно для аргумента arg.dat и отдельно для функции fun.dat помогите мне

Решение задачи: «Обработка текстовых файлов»

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

uses crt;
var f,g,h:text;
    x,y:array[1..20] of real;
    n,i:integer;
begin
assign(f,'id.dat');
reset(f);
assign(g,'arg.dat');
rewrite(g);
assign(h,'fun.dat');
rewrite(h);
n:=0;
while not eof(f) do
 begin
  n:=n+1;
  read(f,x[n]);
  write(g,x[n]:5:2);
  read(f,y[n]);
  write(h,y[n]:5:2);
 end;
close(f);
close(g);
close(h);
writeln('Массив аргумента:');
for i:=1 to n do
write(x[i]:5:2);
writeln;
writeln('Массив функции:');
for i:=1 to n do
write(y[i]:5:2);
end.

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

Объявлены переменные: f, g, h (файлы)
x, y (массивы)
n, i (переменные для цикла)
Затем происходит открытие файлов:
f = 'id.dat' (открытие файла с идентификаторами)
g = 'arg.dat' (открытие файла с аргументами функции)
h = 'fun.dat' (открытие файла с функцией)
После чего начинается цикл по чтению данных из файла с идентификаторами
Пока не достигнут конец файла, выполняется:
Увеличивается счетчик n
Считывается значение x[n] из файла f
Записывается значение x[n] в файл g, с шагом 5 позиций и размерностью 2 знака после запятой
Считывается значение y[n] из файла f
Записывается значение y[n] в файл h, с шагом 5 позиций и размерностью 2 знака после запятой
После окончания цикла, файлы f, g, h закрываются
Выводится массив аргументов функции:
Для каждого элемента x[i] выводится его значение с шагом 5 позиций и размерностью 2 знака после запятой
Выводится массив функции:
Для каждого элемента y[i] выводится его значение с шагом 5 позиций и размерностью 2 знака после запятой
Код завершается