Получить информацию о служащем, фамилия которого введена с клавиатуры

uses crt;
const nmax=20;
type slz=record
         fam:string[20];
         inc:string[4];
         dlz:string[20];
         god:word;
         okl:longint;
         end;
     mas=array[1..nmax] of slz;
var b:boolean;
procedure Vyvod(a:mas;n:byte);
var i:byte;
begin
writeln('----------------------------------------------------');
writeln('|   Фамилия И.О.   |  Должность  |  Год  |  Оклад  |');
writeln('----------------------------------------------------');
for i:=1 to n do
with a[i] do
 begin
  gotoXY(1,whereY);write('| ',fam,' ',inc);
  gotoXY(20,whereY);write('| ',dlz);
  gotoXY(34,whereY);write('|',god:6);
  gotoXY(42,whereY);write('|',okl:8);
  gotoXY(52,whereY);writeln('|');
 end;
writeln('----------------------------------------------------');
readln;
end;
 
procedure Vvod(var a:mas;var n:byte);
var i:byte;
begin
clrscr;
repeat
write('Количество служащих до ',nmax,' n=');
readln(n);
until n in [1..nmax];
writeln('Введите данные:');
for i:=1 to n do
 begin
  writeln('Служащий ',i);
  with a[i] do
   begin
    write('Фамилия: ');readln(fam);
    write('Инициалы: ');readln(inc);
    write('Должность: ');readln(dlz);
    write('Год поступления:');readln(god);
    write('Оклад:');readln(okl);
   end;
 end;
b:=true;
clrscr;
writeln('Исходный список служащих:');
Vyvod(a,n);
end;
 
procedure Sort(var a:mas;n:byte);
var i,j:byte;
    x:slz;
begin
clrscr;
if not b then
 begin
  write('Массив еще не создан, вернитесь к пункту 1');
  readln;
  exit;
 end;
for i:=1 to n-1 do
for j:=i+1 to n do
if a[i].okl>a[j].okl then{если нужно по убыванию заменить знак на  < }
 begin
  x:=a[i];
  a[i]:=a[j];
  a[j]:=x;
 end;
writeln('Список, отсортированный по окладу:');
Vyvod(a,n);
end;
 
procedure Poisk(a:mas;n:byte);
var i,k:byte;
    s:string[20];
begin
clrscr;
if not b then
 begin
  write('Массив еще не создан, вернитесь к пункту 1');
  readln;
  exit;
 end;
writeln('Введите фамилию: ');
readln(s);
k:=0;
for i:=1 to n do
with a[i] do
if fam=s then writeln(fam,' ',inc,' ',dlz,' ',god,' ',okl);
readln
end;
 
procedure Count(a:mas;n:byte);
var i,k:byte;
begin
clrscr;
if not b then
 begin
  write('Массив еще не создан, вернитесь к пункту 1');
  readln;
  exit;
 end;
k:=0;
for i:=1 to n do
if 2012-a[i].god>10 then k:=k+1;
writeln('Количество работающих более 10 лет=',k);
readln
end;
 
var sl:mas;
    n:byte;
    w:char;
begin
clrscr;
b:=false;
repeat
clrscr;
writeln('Выберите действие:');
writeln('1-Ввод массива');
writeln('2-Сортировка по окладу');
writeln('3-Поиск по фамилии');
writeln('4-Количество более 10 лет');
writeln('Другое - выход');
readln(w);
case w of
'1':Vvod(sl,n);
'2':Sort(sl,n);
'3':Poisk(sl,n);
'4':Count(sl,n);
else exit;
end;
until not(w in ['1'..'4']);
end.