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

else

if filesize(sotrud)<>0 then

repeat

New(Cur);

Read(sotrud,Cur^);

Cur^.link:=Top;

Top:=Cur;

until eof(sotrud);

close(sotrud);

end;

Procedure DinToFile; {Издин. памятивфайл}

begin

If Top<>nil then

begin

Assign(sotrud,'sotrudn.dat');

Rewrite(sotrud);

Cur:=Top;

repeat

Write(sotrud,Cur^);

Cur:=Cur^.link;

until Cur=nil;

close(sotrud);

end;

end;

Procedure Menus; {выводменюнаэкран}

var

i:integer;

begin

clrscr;