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

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

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

end;

seek (h, i-1); write (h,b);

end;

close (h);

end;

{::::::::::::::::::::::::::: }

var i,r,p: byte;

t: char;

begin

textmode (c40);

repeat

window (1,1,40,25);

textbackground (5);

clrscr;

textcolor (11);

fon;

text;

i: =1;

kursor (i,9);

repeat

newreadkey (t,r);

p: =i;

case r of

72: i: =i-1;

80: i: =i+1;

end;

case i of