ООП: определить объект "Студент". Организовать ввод и вывод данных объекта - Turbo Pascal

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

6. Используя ООП, определить объект СТУДЕНТ. Организовать ввод и вывод данных объекта СТУДЕНТ.

Решение задачи: «ООП: определить объект "Студент". Организовать ввод и вывод данных объекта»

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

uses crt;
 
const
     nmax = 20;
 
type
    TStudent = object
             name: string[30];
             surname: string[30];
             date: integer;
             faculty: string;
             group: string[10];
             procedure enterInfo;
             procedure printInfo;
    end;
 
procedure TStudent.enterInfo;
begin
     Write('Enter name: ');
     Readln(name);
     Write('Enter surname: ');
     Readln(surname);
     Write('Enter date: ');
     Readln(date);
     Write('Enter faculty: ');
     Readln(faculty);
     Write('Enter group: ');
     Readln(group);
end;
 
procedure TStudent.printInfo;
begin
     Writeln('Name: ', name);
     Writeln('Surname: ', surname);
     Writeln('Date: ', date);
     Writeln('Faculty: ', faculty);
     Writeln('Group: ', group);
end;
 
var
   student: array [1..nmax] of TStudent;
   i, n: byte;
 
begin
     Repeat
           Write('Enter n (n < ', nmax, ') = ');
           Readln(n);
     until n in [1..nmax];
     for i := 1 to n do
     begin
          Writeln('Введите информацию о студенте № ', i);
          student[i].enterInfo;
     end;
     ClrScr;
     Writeln('Информация о студентах: ');
     for i := 1 to n do
         student[i].printInfo;
end.

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

В начале кода подключается библиотека crt, которая обеспечивает ввод и вывод данных.
Затем определяются константы и типы данных.
Далее создается объект типа TStudent с полями name, surname, date, faculty и group.
В процедуре enterInfo происходит ввод информации о студенте.
В процедуре printInfo выводится информация о студенте.
Переменная student представляет собой массив объектов типа TStudent.
Переменная i используется для перебора студентов в массиве.
В цикле repeat-until идет запрос на ввод числа n.
Цикл for затем используется для перебора студентов с индексами от 1 до n.
Для каждого студента вызывается процедура enterInfo для ввода информации.
После завершения ввода информации выводится сообщение Информация о студентах и снова перебираются студенты.
В конце программы очищается экран с помощью функции ClrScr.