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

end

else

begin

textcolor(7);

pamka(1,19,39,25);

pamka(1,1,39,25);

gotoxy(1,19);

write(#204);

gotoxy(39,19);

write(#185);

window(2,20,38,24);

writeln(' ЫЯЯЯЫ ЫЯЯЯЯЫ Я ЬЬЬ Ы ЬЯ ');

writeln(' ЫЬЬЬЫ Ы Ы Ы ЯЬ Я ЫЬЯ ');

writeln(' Ы Ы Ы Ы ЯЬ ЫЯЬ ');

writeln(' Ы ЫЬЬЬЬЫ Ы ЯЬЬЬЯ Ы ЯЬ ');

window(5,2,37,17);

textcolor(7);

write('vvedi slovo dla poiska-');readln(s);

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

reset(f);

for i:=0 to filesize(f)-1 do

begin

seek(f,i);

read(f,pr);

with pr do

begin

if (s=naz) or (s=vd) or (s=nt) or (s=reg) or (s=vl) then

begin

writeln('zapis',i+1);