Найдите Ошибку. Работа с файлами

[Lord_Rufus]

Составить программу с подпрограммой-функцией, подсчитывающей сумму отрицательных элементов в файле, в котором записаны целые числа.
++++++++++++++++++++++++++++++
Программа обнуляет k и вcе (((, подскажите где ошибка...

program summ;
uses crt;
const n=7;
type rd=file of integer;
var s:rd;
function sum (var s:rd):integer;
var i:byte;
x,k:integer;
begin
k:=0;
for i:=1 to filesize (s) do
begin
read(s,x);
if x<0 then k:=k+x;
end;
sum:=k;
end;
BEGIN
clrscr;
assign(s,'file.txt');
{$I-}
reset(s);

if IOResult <> 0 then halt ;
{$I+}
writeln(sum(s));
close(s);
END.

[eoln]

Нет в коде ошибок, а вот в логике есть. Файл у вас типа INTEGER, а вы вроде его создавали как текстовый. Типизированные файлы с помощью блокнота не создаются.
Пишите var s: text; или создавайте файл file.txt типа integer програмно

Чуть не забыл - естественно при var s: text код поправлять придётся

[Lord_Rufus]

Окей спасибки, попробуем