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

writeln ('F.I.O voditela-', fio); writeln;

write ('Avto na kotorom on ezdiet-', av); writeln;

write ('Seria i nomer pasporta voditela-', pas); writeln;

write ('Adres progivania-', mg); writeln;

for j:=1 to 30 do

delay(9999);

end;

end;

clrscr;

write ('Vvedi nomer voditela kotorogo budem redaktiovat – '); readln(p);

seek (f, p-1);

read (f, bas);

with bas do

begin

clrscr;

textcolor(7);

writeln ('voditel-', p); writeln;

writeln ('F.I.O voditela-', fio); writeln;

write ('Avto na kotorom on ezdiet-', av); writeln;

write ('Seria i nomer pasporta voditela-', pas); writeln;

write ('Adres progivania-', mg); writeln;

end;

writeln;

textcolor(4);

writeln ('Dla prestuplenia k redaktirovaniu nagmi «ENTER» ');

readln;

textcolor(7);

with bas do

begin