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

[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

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

[Lapp]

Тарас, я не врубаюсь в твои рассуждения про четверки. Ты имеешь в виду процессорное слово? А при чем тут оно? А может, тогда, уже 8-рки? Понятно, впрочем, что файл займет на диске место в один блок, то есть обычно 4КБ. Но я сомневаюсь, что остаток блока будет чем-то записан. Впрочем, речь все равно не о том )).
Я думаю, препод имел в виду дополнение до полного размера строки. Хотя, может, я и не прав ("никогда не знаешь, что придет в голову пчелам" (С))

Все это доволно странно.. Во-первых - это совешенно не согласуется с концепцией. Во-вторых - ну почему именно пробелы??? А в третьих - что ж, он ни разу не писал файлы из строк по 1-2 символа?..

Шека, тебе пора книжку с его перлами издавать..