Создать файл и записать в него 5 слов — Pascal(Паскаль)

var f:text;
     s:string;
     i:byte;
begin
assign(f,'aaa.txt');
rewrite(f);
for i:=1 to 5 do
 begin
  write('slovo ',i,' - ');
  readln(s);
  writeln(f,s);
 end;
close(f);
end.