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

var a,s,d:string;

f:text;

n,e,y,q:integer;

begin

assign(f,'iz.txt');

{$I-}

reset(f);

if IOResult>0 then

begin

writeln('Файл не найден');

readln;

halt;

end;

{$I+}

(Эта вставка предназначена на тот случай, если файла со списком нет на диске. Тогда программа выдаст сообщение и завершит свою работу, а не просто вылетит.)

writeln('Введите критерий');

readln(a);

writeln('Если это фамилия, введите 1,

имя - 2, пол - 3');

readln(e);

if e=1 then

begin

repeat

readln(f,s);

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

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

if d=a then

begin

y:=1;

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