Курсовая работа: Составление программ для решения задач на языке программирования Turbo Pascal

If IOresult=0 then

begin

Seek (BookFile, FileSize (BookFile)); {установка текущей позиции в конец файла}

AddRec;

Writeln ('Izmenennyi fail dannyh imeet ', FileSize (BookFile),' zapisei');

Close (BookFile);

end

Else Writeln ('Faila s imenem ', Name,' na diske net');

end;

Procedure FindFIO; {процедура поиска названия улицы физического лица}

Var

Maska: StUlica; {хранит название улицы искомого лица}

Rez_Find: boolean; {результат поиска}

CountRec: integer; {переменная, значение которой равно числу записей с такой улицей}

begin

Name_File;

Assign (BookFile, Name);

{$I-}

Reset (BookFile);

{$I+}

If IOresult=0 then

begin

Write ('Vvedite ulicu dla poiska: ');

Readln (Maska);

Rez_Find: =False; {улица не найдена}

CountRec: =0;

Writeln ('------------------------------------------------------------------------------');

Writeln ('| N | FIO | Data rogdenia | Gorod | Ulica | Dom | Kvartira | Nomer pasporta |');

Writeln ('------------------------------------------------------------------------------');