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

end

else

write ('Po zaprosu nichego ne naydeno');

end;

end;

close (h);

end;

end;

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

procedure udal;

var xc: char;

begin

window (1,1,40,25);

textbackground (0);

clrscr;

textcolor (4);

ram;

gotoxy (16,2);

write ('UDALENIE');

textcolor (7);

window (6,6,34, 20);

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

begin

textcolor (132);

gotoxy (8,7);

write ('FAIL NE NAYDEN');

end

else

begin