Проблемы с файлами. Паскаль

[maxflint]

Uses m1;
const
diskName : String = 'C:';
pathName : String = '\';
fileName : String = 'input.dat';
Begin
writeln('Summa otricatelnih elementov = ',
Task(diskName, pathName, fileName):5);
End.

{модуль}
Unit m1;
Interface
Function Task(d_name, p_name, f_name : String): Integer;
Implementation

Function Task(d_name, p_name, f_name : String): Integer;
Var
f : file of Integer;
buf,z : Integer;
summa : Integer;
Begin
summa:=0;
z:=0;
assign(f, d_name+p_name+f_name);
reset(f);
while not eof(f) do
begin
read(f,buf);
if (buf<0) then summa := summa + buf;

end;
close(f);

Task := summa;
end;
end.

файл input.dat создаю в корне диска С. туда записываю -1 -2 -3.
Почему считывает какую-то ахинею и иногда пишет dick read error.
Я же всё правильно делаю

[maxflint]

та же проблема...

var
f : file of integer;
z : integer;
begin
assign(f, '1.dat');
reset(f);
seek(f,0);
while not eof(f) do
read(f,z);
end.

в файле записано 1 2 3, а считывает 8421, 8422, 8423 и read disk error/
В чём пролема

[Serge_Bliznykov]

потому что, когда вы в блокноте пишете туда 1 2 3 - то это вы записываете ТЕКСТ!!!
а у вас файл из целых чисел (бинарный!)
f : file of integer;

попробуйте создавать файл "не ручками",
а таким, например, кодом (запишем в файл целые числа 1, 2, 3, 4):

var
f : file of integer;
i : integer;
begin
  assign(f, '1.dat');
  rewrite(f);
  for i:=1 to 4 do
    write(f,i);
  Close(f);
end.

_______________________________

*elite coder*

ну, ну...

[maxflint]

благодарю, натупил