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

gotoxy (16,11);

textcolor(132);

writeln ('BASA NE SOZDANA');

textcolor(7);

end

else

begin

clrscr;

window (1,1,40,25);

textcolor(6);

pamka (1,1,39,25);

gotoxy (5,2);

textcolor(3);

writeln ('REDAKTIROVANIE UCHOTA VODITELEY');

window (2,3,38,25);

assign (f, 'd:\po');

reset(f);

gotoxy (13,1);

textcolor(4);

writeln ('VSA BASA:');

window (2,4,38,25);

for i:=0 to filesize(f) – 1 do

begin

seek (f, i);

read (f, bas);

with bas do

begin

clrscr;

textcolor(7);