Обработка файлов средствами языка Turbo Pascal Опции

[Grief]

"Разработать две программы, выполняющие заданные последовательности действий над данными определенного типа с использованием файлов в соответствии с вариантом задания."

Программа должна выполнять:
– вывод сообщения о разработчике и о назначении программы;
– ввод данных в режиме диалога.
Сохранение данных в файле и чтение данных из файла организовать как процедуру или функцию.


Вот как выглядит задание, в таблице 3.1 была куча вариантов, но оставил только свой. В остальных оставил все, ибо я не совсем понял, как ориентироваться по-этому заданию... у меня 7 вариант.

Вот то, что получилось у меня... прошу проверить с заданием, все ли так сделал + после того, как заменил транслит русскими буквами, программа начала выдавать ошибку, как исправить?

program laba3;
uses crt;
Label m1;
var
n:integer;
st1,st2:string[18];
F:text;
procedure Ввод;
begin
assign(F,'rez.txt');
rewrite(F);
write('Введите символы: ');
read(st1);
Writeln('st1= ',st1);
Writeln(f,st1);
close(f);
readln;
end;
procedure Чтение;
begin
assign(F,'rez.txt');
reset(f);
readln(f,st2);
writeln('st2= ',st2);
close(f);
end;

Begin
clrscr;
writeln('1. Ввод');
writeln('2. Чтение');
writeln('3. Выход');
m1:write('Введите пункт меню: ');
readln(n);
case n of
1:begin Ввод; goto m1; end;
2:begin Чтение; end;
3:Выход;
end;
goto m1;
readln;
end.

Сообщение отредактировано: Grief - 1.04.2010 19:04