Сведения о сотрудниках включают: фамилию, имя, отчество, дату рождения, полученное образование, домашний адрес, профессию. Получить

uses
  crt;
 
type
  str40 = string[40];
  str30 = string[30];
  str15 = string[15];
  sluzh = record
    im: str40;
    fam: str40;
    ot: str40;
    rojdenia: str15;
    obr:str40;
    adres: str30;
    sp: str15;
  end;
 
Var
  a: array [1..100] of sluzh;
  sp: str15;
  k : integer;
  i,n : integer;
Begin
  Clrscr;
  {specialnost:=sp;}
  k:=0;
  write ('Введите количество сотрудников: ');
  readln(n);
  for i:=1 to n do
    begin
      writeln('Сотрудник №: ', i, ':');
      write ('Введите имя: ');
      readln(a[i].im);
      write ('Введите фамилию: ');
      readln(a[i].fam);
      write ('Введите отчество: ');
      readln(a[i].ot);
      write ('Введите адрес: ');
      readln(a[i].adres);
      write ('Введите дату рождения: ');
      readln(a[i].rojdenia);
      write ('Введите профессию: ');
      readln(a[i].sp);
      write ('Введите образование: ');
      readln(a[i].obr);
      writeln;
  end;
  for i:=1 to n do
    if a[i].obr='высшее' then
    begin
      writeln (a[i].im,' ',a[i].obr);
    end;
  writeln;
  write ('Введите профессию для поиска: ');
  readln(sp);
  for i:=1 to n do
    if sp= a[i].sp then
    begin
      writeln (a[i].fam,' ',a[i].sp);
    inc(k);
  end;
  Writeln ('Количество найденных сотрудников: ',k);
  readln;
end.