Дано предложение. Записать каждый из его символов в файл — Pascal(Паскаль)

var 
f:text;
i:byte;
str:string;
begin
assign(f,"f.txt");
rewrite(f);
str:="cyber forum";
for i:=1to length(str)do 
     write(f,str[i]);
end.