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

write ('FAIL NE NAYDEN');

end

else

begin

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

reset (h);

writeln ('Vsego voditeley-',filesize (h));

write ('Vvedi nomer dlya red. - '); readln (i);

seek (h, i-1);

read (h,b);

with b do

begin

writeln ('VODITEL-', i);

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

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

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

writeln ('Stag vogdenia-',st);

writeln (' FIO voditela - ', im);

writeln;

end;

writeln ('Dla red. nagmi "ENTER"');

readln;

clrscr;

with b do

begin

clrscr;

writeln ('VODITEL-', i);

write ('Vvedi model avt. - '); readln (m);

write ('Vvedi mesto reg. - '); readln (mg);