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

textcolor (4);

write ('y/n '); textcolor (7); readln (xc);

case xc of

'y': begin

assign (h,'D: \po. po');

erase (h); writeln;

writeln ('UDALENO');

end;

'n': readln;

end;

end;

end;

{... ... ... ... . }

procedure red;

var i: integer;

begin

window (1,1,40,25);

textbackground (0);

clrscr;

window (1,1,40,25);

textcolor (1);

ram;

gotoxy (13,2);

write ('REDAKTIROVANIE');

textcolor (7);

window (6,6,34, 20);

if fsearch ('po. po','d: \') ='' then

begin

textcolor (132);