Помогите, пожалуйста, написать текст программы на языке высокого уровня (Basic или Pascal)!

решение на Turbo Pascal 7.0 (Pascal ABC = shift + F9)

uses crt;
type info = record
fio: string [30];
age: integer;
stage: integer;
child: byte;
educ: byte;
end;
var i, n, m : integer;
table: array [1..100] of info;
begin
clrscr;
randomize;
n:=50;
{write (' Введите количество сотрудников [1..100]:');
readln (n);} {ручной ввод количества сотрудников}
for i:=1 to n do
begin
if i<10 then table[i].fio:=' Сотрудник #0'+ inttostr (i)
else table[i].fio:=' Сотрудник #'+ inttostr (i);
table[i].age:=20+random(30);
table[i].stage:=table[i].age-19;
table[i].child:=random (2);
table[i].educ:=random (2);
end;
writeln;
writeln ('ФИО':9,'Возраст':18,'Стаж':6,'Наличие':10,'Наличие':10);
writeln ('детей':42,'ВО':8);
for i:=1 to n do
begin
write (table[i].fio);
write (table[i].age:10);
write (table[i].stage:8);
write (table[i].child:8);
write (table[i].educ:10);
writeln;
end;
writeln;
writeln('___________________________________________________________________');
writeln ('ФИО':9,'Возраст':18,'Стаж':6,'Наличие':10,'Наличие':10);
writeln ('детей':42,'ВО':8);
writeln('___________________________________________________________________');
for i:=1 to n do
if (table[i].age >= 31) and (table[i].stage >=10) and (table[i].child=0) and (table[i].educ=1) then
begin
write (table[i].fio);
write (table[i].age:10);
write (table[i].stage:8);
write (table[i].child:8);
write (table[i].educ:10);
writeln;
end;
end.

Могу на Паскале с использованием записей, и надо ли их записывать в файл?

«Кот ученый!» - который тебе написал, это бывший ник «Романа Максимова» - -вчера еще был "Зотиков", РЕШАЕТ НЕВЕРНО ВСЕМ, будет у тебя деньги выпрашивать за решения– кидает тут всех тупо на бабки! ныкается как крыса под разными именами)) Сидит на даче безработный старпёр С НЕМЫТЫМИ САЛЬНЫМИ ВОЛОСАМИ и кидает студентов!!! Моего друга обул на 320 руб – денег не вернул!!! У этого мошенника Зотикова-Леоновой – есть еще страницы - ИХ УЖЕ ЗАКРЫЛИ ЗА МОШЕННИЧ-ВО - он с трёх страниц кидает одновременно!!! Имя сменил только.