Страница: 5/5
writeln('3:Корректировка записи');
writeln('4:Просмотр файла');
writeln('5:Удаление записи из файла');
writeln('6:Выход из программы');
readln(k);
case k of 1: begin Creatfile; Inputfile end;
2: begin Addrecord; Inputfile end;
3: redzap;
4: begin Openfile; Outputfile end;
5: Clearfile;
6: Halt;
else writeln('Ошибка.Повторите номер режима.')
end;
goto 11;
End.
Реферат опубликован: 31/03/2007