Вывести возраст студента и срок его обучения - Turbo Pascal

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

Помогите пожалуйста, (Разработайте консольную прикладную программу, которая предлагает пользователю ввести с клавиатуры данные некоторого студента. После этого выводит на экран его возраст(в годах), а также сколько дней он уже обучается в учебном заведении.) Турбо паскаль

Решение задачи: «Вывести возраст студента и срок его обучения»

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

type
    TStudent = record
        fio: String;
        vozrast: Byte;
        obuch: Word;
    end;
var
    stud: TStudent;
begin
    with stud do
    begin
        Write('Введите Ф.И.О. студента: '); ReadLn(fio);
        Write('Введите возраст в годах (полных): '); ReadLn(vozrast);
        Write('Введите сколько дней студент обучается в УЗ: '); ReadLn(obuch);
        WriteLn; WriteLn; WriteLn;
        WriteLn(fio, ': возраст - ', vozrast, '; дней учится: ', obuch);
    end;
    
end.

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

Создаётся тип данных TStudent, который представляет собой запись с полями fio (ФИО), vozrast (возраст в байтах) и obuch (срок обучения в словах).
Создаётся переменная stud типа TStudent.
В блоке с студией происходит чтение ФИО, возраста и срока обучения с помощью функции ReadLn.
Записывается информация о студенте в консоль с помощью функции WriteLn.
Код вывода информации о студенте в виде ФИО, возраста и срока обучения.