Pascal. Работа с файлами.

[Kind1]

Составьте программу вычисления суммы положительных компонент целочисленного файла. Результаты запишите в файл.

[ZX Spectrum-128]

Sum:=0;
While not eof(f) do
Begin
  Read(f,x);
  If x>0 then
    Sum:=sum+x;
End;