Помогите с программой на Паскале: Напишите программу для ввода в файл и распечатки 5 фамилий.

Question

Помогите с программой на Паскале: Напишите программу для ввода в файл и распечатки 5 фамилий.

Марина Ученик (172), на голосовании 7 лет назад

Написала, помогите довести до ума, понимаю, что на уровне первого класса составлена.
Program Vvod;
var
f:text;
x:string;
begin
assign(f,'output.txt');
writeln('Vvedite 5 familiy: ');
read(x);
rewrite(f);
write(f,x);
reset(f);
read(f,x);
writeln(x);
close(f);
end.

Answer 1

Program v1;
var f:text; x:string; i:integer;
begin
assign(f,'myfile.txt');
rewrite(f);
writeln('Vvedite 5 familiy: ');
for i:=1 to 5 do begin readln(x); writeln(f,x) end;
close(f);
writeln;
reset(f);
for i:=1 to 5 do begin readln(f,x); writeln(x); end;
close(f);
readln
end.