Основы алгоритмизации и программирования. Часть четвертая. Файловая система Turbo Pascal. Асламова В.С - 19 стр.

            2: begin
                writeln(′ввод нового числа жителей′); readln(z.zahl);
         end; end;
        if x<>3 then begin
            seek(g,filepos(g)-1); {возврат текущего указателя назад
                                   на одну запись}
            write(g,z);            {перепись измененной записи в
                                   файл}
     end; end
    else
    if x=3 then write(q,z);        {перепись записи в новый файл}
end;
close(g);
if (u=1)and(x=3) then begin
      close(q);
      erase(g);                    {уничтожение старого файла}
      rename(q,nam);               {переименование нового файла}
  end;end;
procedure menu(var g:fil;var nam:st;var b:boolean);
var x:byte;
m:set of byte; {m-множество допустимых значений x}
begin
    b:=false;
    m:=[1..6];
    repeat
     clrscr;                       {очистка экрана}
writeln('Выбор действий:');
writeln('1-для создания файла; 2- для пополнения файла;');
writeln('3-для изменения файла; 4- для выдачи сведений;');
writeln('5-просмотр файла; 6-для выхода из программы.');
readln(x);
until x in m;{x принадлежит множеству допустимых значений}
case x of
1: sosd(g,nam);
2: app(g,nam);
3: ism(g,nam);
4: poisk(g,nam);
5: prosmotr(g,nam);
6: b:=true
end; end;
begin nam:='c:\File.dat';
repeat
menu(f,nam,b);
until b; end.
                          37                                            38