Курсовая работа: База данных "Сотрудники"

sch,kol:integer;

search:boolean;

sotr:array[1..10] of base;

begin

clrscr;

gotoxy(33,wherey); writeln('****************');

gotoxy(33,wherey); writeln('Поисксотрудника');

gotoxy(33,wherey); writeln('****************');

write('Введите должность сотрудника: ');readln(dol);

clrscr;

gotoxy(30,wherey); writeln('********************');

gotoxy(30,wherey); writeln('Найденные сотрудники');

gotoxy(30,wherey); writeln('********************');

Sch:=0;

I:=0;

Search:=false;

Cur:=Top;

While Cur<>nil do

begin

If Cur^.Dolg = dol then begin

i:=i+1;

sotr[i]:=Cur^;

Sch:=Sch+1;

search:=true;

end;

Cur:=Cur^.link;

if (search=false) and (Cur=nil) then

begin

Write('Искомых сотрудников нет в базе.');