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

if readkey=#13 then

begin

assign(f,'d:\bas.bas');

erase(f);

writeln('fail udalen');

end;

end;

readln;

end;

{:::::::::::::::::::::::::::::::::::::::::::::}

var st1,st2,st3,st4:string;

e:char;d,p:byte;

begin

textmode(c40);

{into;

{is;

ud;

readln;}

repeat

window(1,1,40,25);

textbackground(7);

clrscr;

st1:='Zapis';

st2:='Nayti';

st3:='Steret';

st4:='Vixod';

rrr(st1,st2,st3,st4);

window(1,1,40,25);

prig(6,3,14,29);