Реферат: Работа с базами данных

t:=pos('$',s);

s:=copy(s,1,w-1)+' '+copy(s,w+1,r-w-1)+'пол '+s[r+1]+

' '+copy(s,t+1,length(s)-t-1);

(Этот блок и все последующие блоки такого типа служат для удаления спецсимволов при выводе на экран строки из файла. Вместо спецсимволов на экран выводятся пробелы и некоторые пояснения.)

writeln(s);

end;

until eof(f);

end;

if e=2 then

begin

repeat

readln(f,s);

n:=pos('*',s);

q:=pos('&',s);

d:=copy(s,n+1,q-n-1);

if d=a then

begin

y:=1;

w:=pos('*',s);

r:=pos('&',s);

t:=pos('$',s);

s:=copy(s,1,w-1)+' '+copy(s,w+1,r-w-1)+' '+s[r+1]+

' '+copy(s,t+1,length(s)-t-1);

writeln(s);

end;

until eof(f);

end;

if e=3 then

begin

if not ((a='м') or (a='ж')) then