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

gotoxy(13,4);

for i:=1 to 20 do

begin

write('=');

delay(500);

end;

for i:=21 to 34 do

begin

write('=');

delay(1300);

end;

for i:=35 to 50 do

begin

write('=');

delay(200);

end;

rewrite(sotrud);

gotoxy(32,18);

write('Базаочищена');

gotoxy(32,19);

write('Нажмитеклавишу Esc');

end;

end;

end;

procedure punkt1; {Новыйсотрудник}

var k,ch:char;

begin

clrscr;

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