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

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

вывести фамилии, имена и отчества всех студентов мужского пола, старших 18 лет. Должна вводиться информация о студентах(фамилии, имена, отчества, пол, возраст).

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

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

program ss;
uses crt;
const
    n=5;
   type  stud=record
fam:string[30];
im:string[20];
otch:string[30];
pol:char;
voz:byte;
end;
var
i:integer;
st:array[1..100] of stud;
 
begin
clrscr;
for i:=1 to n do begin
with  st[i] do begin
Writeln('Введите фамилию студента');
readln(fam);
Writeln('Введите имя студента');
readln(im);
writeln('Введите отчество студента');
readln(otch);
Writeln('Введите пол студента');
readln(pol);
writeln('Введите во зраст студента');
readln(voz);
end;
end;
WriteLn('|','Фамилия':10,'|','Имя':8,'|','Отчество':10,'|','Пол':3,'|','Возраст':7,'|');
for i:=1 to n do begin
with st[i] do begin
write('|',fam:10,'|');
write(im:8,'|');
write(otch:10,'|');
write(pol:3,'|');
write(voz:7,'|');
end;
readln
end;
writeln;
Writeln('Студенты мужского пола старше 18-ти лет');
writeln;
for i:=1 to n do begin
if (st[i].pol='м') and (st[i].voz>17) then   begin
WriteLn('|','Фамилия':10,'|','Имя':8,'|','Отчество':10,'|','Пол':3,'|','Возраст':7,'|');
with st[i] do begin
write('|',fam:10,'|');
write(im:8,'|');
write(otch:10,'|');
write(pol:3,'|');
write(voz:7,'|');
end;
readln
end;
end;
end.

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

Программа ss написана на языке Turbo Pascal. Она использует константу n, которая определяет количество студентов, и тип данных stud, который представляет информацию о студенте. В программе используется массив строк st для хранения информации о студентах. Программа начинается с инициализации переменных и объявления переменной i для цикла. Затем следует цикл for, который выполняется n раз. Внутри цикла программа запрашивает у пользователя ввод информации о каждом студенте, используя функцию readln(). Затем эта информация сохраняется в соответствующих переменных st. После завершения цикла программа выводит информацию о каждом студенте, используя функцию write(), и затем выводит информацию о студентах мужского пола старше 18 лет. Для этого используется цикл if, который проверяет пол и возраст каждого студента. Если студент мужского пола и его возраст больше 18, то программа выводит информацию о нем. В конце программы выводится сообщение Студенты мужского пола старше 18-ти лет.