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

seek (f, filesize(f));

write (f, bas);

end;

close(f);

end;

end;

procedure punkt (x, y, z, c, q:byte; s:string);

begin

window (x, y, z, c);

textbackground(q);

clrscr;

textcolor(10);

write(s);

end;

procedure pamka (x1, y1, x2, y2:integer);

var i, c:integer;

begin

gotoxy (x1, y1);

write(#201);

for i:=1 to x2-x1–1 do

begin

gotoxy (x1+i, y1);

write(#205);

end;

gotoxy (x2, y1);

write(#187);

for i:=1 to y2-y1–1 do

begin

gotoxy (x2, y1+i);