Перенос данных из записей в файл - PascalABC.NET

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

Подскажите, возможно ли такое: имеется запись:

 tItem = record
        sim : char;
        kol : longint
      end;

Можно ли ве данные, имеющиеся в ней переписать в текстовый файл?

Если да, то как это осуществить?

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

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

type tItem = record
             sim : char;
             kol : longint
             end;
var n,i:integer;
    z:tItem;
    f:text;
begin
assign(f,'zapisi.txt');     
rewrite(f);
write('Количество записей n=');
readln(n);
for i:=1 to n do
 begin
  write('Введите символ  ');
  readln(z.sim);
  write('Введите целое число  ');
  readln(z.kol);
  writeln(f,z.sim,' ',z.kol);
 end;
close(f);
write('Данные записаны в файл zapisi.txt')
end.

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

Объявление типа данных tItem для записи, содержащей два поля: sim (символ) и kol (длинное целое число).
Объявление переменных:
- n и i типа integer (целое число) для итераций.
- z типа tItem (запись) для хранения введенных данных.
- f типа text (текстовый файл) для работы с файлом.
Открытие файла zapisi.txt в режиме записи (rewrite(f)).
Запрос на ввод количества записей (write('Количество записей n='); readln(n)).
Цикл for i:=1 to n для обработки каждой записи.
В каждой итерации цикла запрашивается ввод символа и целого числа (write('Введите символ '); readln(z.sim); write('Введите целое число '); readln(z.kol)).
Введенные данные записываются в файл zapisi.txt с разделителем пробела (writeln(f,z.sim,' ',z.kol)).
Закрытие файла (close(f)).
Вывод сообщения об успешном сохранении данных в файле zapisi.txt (write('Данные записаны в файл zapisi.txt')).