Курсовая работа: Автоматизований облік власників автомобілей

end;

{------------------}

procedure text;

begin

window (11,5,28, 20);

textcolor (12);

writeln; writeln (' Vvod');

writeln; writeln; writeln (' Redaktir. ');

writeln; writeln; writeln (' Poisk');

writeln; writeln; writeln (' Udalenie');

writeln; writeln; writeln (' Vixod');

end;

{------------------}

procedure kursor (var i: byte; w: byte);

begin

textcolor (w);

window (7,5,33, 20);

case i of

1: begin

gotoxy (3,2);

write (#16);

gotoxy (23,2);

write (#17);

end;

2: begin

gotoxy (3,5);

write (#16);

gotoxy (23,5);

write (#17);