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

if fsearch('reg','d:\')='' then

begin

textcolor(132);

writeln('FAIL Ne NAYDEN');

end

else

begin

Writeln('Fail udalen ');

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

erase(f);

end;

end;

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

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('є');