Вывод данных на экран о всех служащих - Free Pascal

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

имеются сведения о служащих фирмы:ФИО.дат.рож.должность. создать в программе новый тип данных:ФИО.дат.рож.должность и организовать вывод данных на экран о всех служащих. тип ввода личных p.s.все данные вводятся отдельно(построчно)

type LichDan=record
f:string;
i:string;
o:string;
d:string;
m:string;
g:string;
dol:string;

Решение задачи: «Вывод данных на экран о всех служащих»

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

program pr;
 
const
  c = 100;
 
type
  LichDan = record
    surname: string[50];
    name: string[50];
    oc: string[50];
    born: string[50];
    post: string[50];
  end;
 
var
  dan: array [1..c]of LichDan;
  i, n: integer;
 
begin
  writeln('Введите сколько служащих хотите записать');
  readln(n);
  for i := 1 to n do
  begin
    writeln('Введите фамилию');
    readln(dan[i].surname);
    writeln('Введите имя');
    readln(dan[i].name);
    writeln('Введите отчество');
    readln(dan[i].oc);
    writeln('Введите дату рождения');
    readln(dan[i].born);
    writeln('Введите должность');
    readln(dan[i].post);
    writeln;
  end;
  writeln;
  writeln('Данные о служащих');
  for i := 1 to n do
  begin
    writeln(dan[i].surname);
    writeln(dan[i].name);
    writeln(dan[i].oc);
    writeln(dan[i].born);
    writeln(dan[i].post);
    writeln;
  end;
end.

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

Список элементов кода:

Объявление константы c = 100, которая определяет размер массива.
Объявление типа данных LichDan, который представляет собой запись (record) с полями surname, name, oc, born, post.
Объявление переменной dan типа array [1..c] of LichDan, которая представляет собой массив (array) из c элементов типа LichDan.
Объявление переменных i и n типа integer.
Вывод сообщения «Введите сколько служащих хотите записать» и считывание значения n с помощью функции readln.
Цикл for i := 1 to n, который выполняет ввод данных о каждом служащем.
В каждой итерации цикла выводятся сообщения «Введите фамилию», «Введите имя», «Введите отчество», «Введите дату рождения», «Введите должность» и считываются соответствующие значения с помощью функции readln.
После ввода всех данных выводится сообщение «Данные о служащих».
Цикл for i := 1 to n, который выводит данные о каждом служащем.
В каждой итерации цикла выводятся значения полей dan[i].surname, dan[i].name, dan[i].oc, dan[i].born, dan[i].post.
Каждое сообщение выводится с помощью функции writeln.
Каждое сообщение о данных служащего выводится на новой строке с помощью символа перевода строки.