Простая задача на Чтение / Запись

Задача:

Память на жестком диске компьютера разбита на параграфы, каждый размером 16 Кб. Файл может занимать только целое кол-во параграфов, даже если параграф занят не весь, то он все равно отдается файлу полностью. Файл INPUT.TXT содержит целые числа, указанные через пробел, отвечающие размерам файлов в байтах. Неоходимо подсчитать общий объём, занимаемый ими на жестком диске. Ответ записать в файл OUTPUT.TXT .

Код:


program RW;
var f: text;
    i,s: longint;
Begin
  s:= 0;

Assign(f,'INPUT.TXT');
 Reset(f);
  while not Eof(f) do begin
    Read(f,i);
    s:= s + (i div 16384 + 1);
                      end;
 s:= s * 16384;
Close(f);

Assign(f,'OUTPUT.TXT');
 Rewrite(f);
 Write(f,s);
Close(f);

End.