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

window (1,1,40,25);

ram;

gotoxy (18,2);

Write ('POISK');

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

write ('Vvedi to,chto ishesh-'); readln (s);

assign (h,'d: \po. po'); reset (h);

for i: =0 to filesize (h) - 1 do

begin

seek (h, i); read (h,b);

with b do

begin

if (s=m) or (s=mg) or (s=kvu) or (s=st) or (s=im) then

begin

writeln ('VODITEL-', i+1);

writeln ('Model avt. - ',m);

writeln ('Mesto reg. - ',mg);

writeln ('Kategor. vod. prav-',kvu);

writeln ('Stag vogdenia-',st);

writeln (' FIO voditela - ', im);