Присвоить переменным значения чисел, прочитанных из файла - Turbo Pascal

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

Нужно считать числа из файла и присвоить эти значения переменным. например 25.1 3.5 1 2.3

Решение задачи: «Присвоить переменным значения чисел, прочитанных из файла»

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

var f:text;
     a,b,c,d:real;
begin
assign(f,'chisla.txt');
reset(f);
read(f,a,b,c,d);//в файле 4 числа через пробелы
close(f);
write(a,' ',b,' ',c' ',d);
readln
end.

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

Объявляются переменные f, a, b, c, d типа text.
Задается имя файла для чтения и записи — 'chisla.txt'.
Функцией assign(f,'chisla.txt') задается связь между переменной f и файлом 'chisla.txt'.
Функцией reset(f) сбрасывается состояние файла.
Функцией read(f,a,b,c,d) считываются пять чисел из файла 'chisla.txt', разделенные пробелами, и присваиваются переменным a, b, c, d соответственно.
Функцией close(f) закрывается файл 'chisla.txt'.
Функцией write(a,' ',b,' ',c' ',d) записываются значения переменных a, b, c, d в файл 'chisla.txt', разделенные пробелами.
Функцией readln() считывается строка с консоли.