Курсовая работа: База данных Расписание поездов

Writeln('Поиск по району');

Write('Введите район:_');

readln(Words);

For i:=1 to nRec do

if rayon[i]=Words{Если элемент массива year совподет

со значением поискового слова то выполнится действие вывода на

экран а переменная found примит значение TRUE}

then

Begin

Writeln('В базе данных найдены сведения ') ;

writeln(name[i],' | ',adres[i],' | ',phone[i],' | ',rayon[i]);

writeln;

found:=True;

i:=i+1;

end;

readln;

if found=False then{Если переменная found не была изенена на

значение TRUE (то есть поиск закончился неудачей , то будет

выведено сообщение что такого элемента найдено не было}

begin

Writeln('В базе данных не найдено сведений об этом районе');

readln;

end;

end;

Листинг 6.4. Процедура добавления информации в БД

ProcedureAddDB;{Процедура добавления в базу данных}

var

f:text;

begin