Delphi 7/Pascal

[lolwto]

Ребята, помогите пожалуйста, кто какой задачей сможет. Оч прошу. Завтра сдавать зачет нужен, а то до экзаменов не допустят.


13.Описать переменную служащий, состоящию из имени, фамилии, отчества служащего,даты рождения, образования,домашнего адреса, профессии.Определить имена людей с высшим образованием. Pascal

14.Класс равнобокая трапеция,поля класса:координаты 4-х вершин трапеции.Предусмотреть классы методы:проверка является ли фигура равнобокой трапецией ; вычисления и вывода сведений о фигуре : длины строки, периметр, площадь. Delphi .

11.Имеется список класса.Определить, есть ли в классе человек,который побывал в гостях у всех.(Для каждого ученика составить множество побывавших у него в гостях друзей , сам ученик в это множество не входит. pascal

33.Распечатать фамилии рабочих бригады, начиная с А и С, с указанием их месячной зарплаты

[Niro]

код не проверял

{высшее образование обозначим словом - higher}
uses crt;
type clerk = 
 record
  fio: string;
  birthday, adress, profession:   
  education: string;
 end;

var infa: array [1..10] of clerk;
n: integer;

begin
 clrscr;
 writeln ('enter the number of people');
 readln (n);
{вводим данные}

 for i:=1 to n do
 with infa [i] do
  begin
   writeln ('enter fio');
   readln (fio);
   writeln ('enter birthday');
   readln (birthday); 
   writeln ('enter adress');
   readln (adress); 
   writeln ('enter education');
   readln (education); 
 end;

 writeln ('higher education');

 for i:=1 to n do
  if infa [i].education = 'higher' then writeln (infa [i].fio);

 readln;
end.