Составить программу, в которой осуществляется ввод строки информации с клавиатуры и сохранение ее в текстовый файл с расширением .txt pascal abc

Program n1;
var f: text;
str: string;
begin
assign(f,'string.txt');
rewrite(f);
read (str);
write(f,str);
close(f);
end.