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

[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

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

[TarasBer]

> Тарас, я не врубаюсь в твои рассуждения про четверки.

Строка же задана как 4-символьная.

> Я думаю, препод имел в виду дополнение до полного размера строки.

Да, я про то же.

[Lapp]

Строка же задана как 4-символьная.

Фу ты, млин, извиняиваюсь.. где были мои глаза? )))