Имеется типизированный файл, элементами которого являются отдельные буквы. Получить слово, образованное этими буквами — Pascal(Паскаль)

program qq;
uses crt;
var
f:file of char;
k,n,i:integer;
s:string;
ch:char;
begin
  readln(n); // КОЛИЧЕСТВО БУКВ
  assign(f,'C:\tmp');
  rewrite(f);
    for i:=1 to n do
      begin
        k:=random(150); // БУКВЫ ЗАПОЛНЯЮТСЯ РАНДОМНО
        write(f,char(k));
      end;
  close(f);
  reset(f);
  writeln('Полученное слово');
    while not EOF(f) do
      begin
        read(f,ch);
        write(ch);
      end;
  close(f);
end.