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

end;

gotoxy (x2, y2);

write(#188);

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

begin

gotoxy (x2-i, y2);

write(#205);

end;

gotoxy (x1, y2);

write(#200);

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

begin

gotoxy (x1, y1+i);

write(#186);

end;

end;

{………………………………………….}

procedure red;

var i, j, p:integer;

begin

window (1,1,40,25);

textbackground(0);

clrscr;

textcolor(7);

if FSearch ('po', 'd:\')='' then

begin

window (1,1,40,25);

textbackground(0);

clrscr;