Лабораторная файлы

[Карина 1578]

Ребят,можете подсказать,что я не так делаю??

Написать программу для формирования трех файлов с произвольным доступом для записи и хранения следующей информации: фамилия, телефон, возраст.

Program File_text;
var
f1,f2,f3 : text;
st : string;
n: byte;
begin
assign (f1, 'Фамилия.txt'); {связать с файлом file1.txt файловую переменную f1 }
assign (f2,'Телефон.txt');{связать с файлом file2.txt файловую переменную f1 }
assign(f3,'Возраст.txt');{связать с файлом file3.txt файловую переменную f1 }
rewrite (f1); { создать новый файл с именем фомилия.txt }
rewrite (f2); { создать новый файл с именем телефон.txt }
rewrite (f3); { создать новый файл с именем возраст.txt }
writeln ( f1, 'фамилия'); { записать предложения в файл}
writeln ( f2, ' телефон ');
writeln (f3, 'возраст ');



close (f1);
close (f2);
close (f3);
reset (f1); { открыть файл для чтения }
reset (f2);
reset (f3);
while not eof (f1) do { пока не конец файла f1}
begin
readln (f1, st); {читаем строку из файла f1 }
writeln(st); { выводим на экран }
n:= length (st); {определяем длину строки }
writeln (' длина =',n);
end;
close (f1); { закрыть файл для чтения}
reset (f2);
reset (f3);
end .

[<- DelpHIFanat ->]

Если, я правильно понял, то проблема в том, что файлы с телефоном и фамилией пустые. Их нужно закрыть после работы с ними: 2 последних оператора reset нужно заменить на close. И ещё - мне не понятно зачем нужно открывать все 3 файла перед циклом while, когда работа осуществляется только с одним? Открывайте только те файлы, которые там нужны (f1) и не забывайте закрывать их после работы с ними.

[Карина 1578]

Спасибо!!)