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

writeln('Не выделывайся. Я, конечно знаю парочку гермафродитов,');

writeln('но их нет этом списке. Сто пудов!!!!');

y:=1;

(Проверка на случай не очень умного пользователя.)

end

else

repeat

readln(f,s);

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

if s[n+1]=a[1] then

begin

y:=1;

{ writeln(s);}

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);

if not ((e=1) or (e=2) or (e=3)) then

begin

writeln('Слушай, делать нечего, вали из моей программы');

y:=2;

(Проверка на случай не очень умного пользователя)

end;

if not (y=1) or (y=2) then

writeln('Таких здесь нет, и, по-моему никогда не было');

end;

readln

end.