Курсовая работа: База даних по приватних підприємствах регіону

procedure kl (x1,y1,x2,y2,a,b:byte);

var i:integer;

begin

textbackground(a);

textcolor(b);

window (x1,y1,x2,y2);

write('Й');

for i:=1 to (x2-x1)-1 do

begin

write('Н');

end;

write('»');

for i:=2 to (y2-y1)-1 do

begin

gotoxy(1,i);

write('є');

gotoxy(x2-x1+1,i);

write('є');

end;

write('И');

for i:=1 to (x2-x1)-1 do

begin

write('Н');

end;

write('ј');

end;

{------------------------}

procedure newreadkey (var a:char;var b:byte);

begin