Вывести списки студентов, проработавших два и более года учителем - Turbo Pascal

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

ребят помогите написать программу После поступления в ВУЗ о студентах собрана информация: фамилия, нуждается ли в общежитии, стаж, работал ли учителем, что окончил, какой язык изучал. Составить программу, определяющую: 1) сколько человек нуждаются в общежитии; 2) списки студентов, проработавших два и более года учителем; 3) списки окончивших педучилище; 4) списки языковых групп.

Решение задачи: «Вывести списки студентов, проработавших два и более года учителем»

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

type
 TRec=record
   FIO:String; Need:Boolean; Stage:Double; Teecher:Boolean; MTU:String; Lang:String;
 end;
var a:array[1..100] of TRec; i:integer;
begin
 for i:=1 to 100 do with a[i] do begin
  Write('фамилия');Readln(FIO);
  Write('общежитии');Readln(Need);
  Write('стаж');Readln(Stage);
  Write('учителем');Readln(Teecher);
  Write('окончил');Readln(MTU);
  Write('язык ');Readln(Lang);
 end;
 
Writeln('списки студентов, проработавших два и более года учителем');
 for i:=1 to 100 do with a[i] do if (Stage>2) and Teecher then
   Writeln(FIO,Need,Stage,Teecher,MTU,Lang);
 
Writeln('списки окончивших педучилище');
 for i:=1 to 100 do with a[i] do if (MTU='гавпед') then
   Writeln(FIO,Need,Stage,Teecher,MTU,Lang);
 
readln;
end.

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

В данном коде используется тип данных Turbo Pascal - TRec, который представляет собой структуру с полями FIO (фамилия), Need (общежитие), Stage (стаж), Teecher (учитель), MTU (окончил) и Lang (язык). Затем объявляется переменная a типа array[1..100] of TRec, которая будет использоваться для хранения информации о студентах. Далее идет цикл for, который проходит по каждому элементу массива a от 1 до 100. Внутри цикла с помощью оператора with происходит чтение информации о студенте из каждого поля структуры TRec, используя функции Write и Readln. После чтения информации выводится список студентов, проработавших два и более года учителем, с помощью функции Writeln. Для этого используется условное выражение if (Stage>2) and Teecher, которое проверяет, что стаж больше 2 лет и студент является учителем. Аналогично, для списка окончивших педучилище, используется условие if (MTU='гавпед'), которое проверяет, что студент окончил педучилище. В конце программы выводится сообщение 'списки студентов, проработавших два и более года учителем' и 'списки окончивших педучилище', а затем с помощью цикла for снова проходится по каждому элементу массива a и выводится информация о студенте, если условия для списка окончивших педучилище выполняются. В итоге, программа выводит списки студентов, проработавших два и более года учителем, и списки окончивших педучилище с указанием фамилии, общежития, стажа, учителя, оконченного учебного заведения и языка.