Записать целые числа в типизированный файл - Turbo Pascal

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

написать программу, которая осуществляет ввод с клавитуры целый чисел и записывает их в типизированный файл.

Решение задачи: «Записать целые числа в типизированный файл»

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

Uses
 CRt;
var
 f:file of integer;
 i,n,k:integer;
begin
assign(f,'D:\1.txt');
{Г§Г*ГЇГЁГ±Г»ГўГ*ГҐГ¬ Гў ГґГ*Г©Г«ГЁГЄ}
rewrite(f);
readln(n);
for i:=1 to n do
begin
 readln(k);
 write(f,k);
end;
close(f);
{Г±Г·ГЁГІГ»ГўГ*ГҐГ¬ ГЁГ§ ГґГ*Г©Г«Г* ГІГ® Г·ГІГ® Г§Г*ГЇГЁГ±Г*Г«ГЁ}
reset(f);
while not eof(f) do
begin
 read(f,k);
 write(k:4);
end;
close(f);
end.

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

В первой строке используется библиотека CRt, которая предоставляет функции для работы с файлами.
Переменная f типа file of integer используется для работы с файлом.
Переменные i, n и k являются целыми числами.
Строка assign(f,'D:\1.txt') устанавливает путь к файлу, в который будут записаны числа.
Строка rewrite(f) перезаписывает содержимое файла.
Строка readln(n) считывает число n из файла.
Цикл for от i=1 до n do повторяется n раз.
Внутри цикла считывается число k, затем оно записывается в файл с помощью функции write.
Строка close(f) закрывает файл после окончания записи.
Строка reset(f) сбрасывает файл до начала.
Цикл while не заканчивается до тех пор, пока не будет достигнут конец файла.
Внутри цикла считывается число k, затем оно записывается в файл с помощью функции write.
Строка close(f) закрывает файл после окончания записи.
Строка end. завершает программу.