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

window (6,6,34, 20);

textcolor (7);

Write ('Vvedi kol-vo vodil-'); readln (n);

clrscr;

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

for i: =1 to n do

begin

seek (h,filesize (h));

with b do

begin

clrscr;

writeln ('VODITEL-', i);

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

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

write ('Vvedi kategor. vod. prav-'); readln (kvu);

write ('Vvedi staj vogdenia-'); readln (st);

write ('Vvedi FIO - '); readln (im);

end;

write (h,b);

end;

close (h);

end;

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

procedure poisk;

var s: string; i: integer;

begin

window (1,1,40,25);

textbackground (0);

clrscr;