Копирование текстового файла Опции

[sheka]

var
  fin,fout: text;
  s: string[4];
begin
  assign(fin,'in.txt');
  reset(fin);
  assign(fout,'out.txt');
  rewrite(fout);
  while not eof(fin) do
  begin
    read(fin,s);
    write(fout,s);
  end;
  close(fin);
  close(fout);
end.
 

in.txt:
mamapapaz

Тов. препод утверждает, что в конце нового файла должны появиться пробелы. У меня их нет. Почему?