Pascal выводит не те числа!

[Xeon1024]

Проблема такая: Дан файл, содержащий целые числа. Нужно вывести среднее арифметическое этих чисел. А он (паскаль) выводит какую-то хрень. Почему?

program z_1;

uses crt;

var f: file of integer;
    s: integer;
    k, l: real;
    i: byte;

BEGIN
  clrscr;
  assign(f, 'z.txt');
   reset(f);
    while not eof(f) do
     begin
     s:=0;
      read(f, s);
      i:=i+1;
      k:=k+s;
     end;
   close(f);
  l:=k/i;
  writeln(l:3:3);
  readkey;
END.

На всякий случай
Архив с программой и текстовым файлом

[Roof]

program z_1;

uses crt;

var f: text;//file of integer;
    s: integer;
    k, l: real;
    i: byte;

BEGIN
  clrscr;
  assign(f, 'z.txt');
   reset(f);
   k := 0;
   i := 0;
    while not eof(f) do
     begin
     s:=0;
      read(f, s);
      i:=i+1;
      k:=k+s;
     end;
   close(f);
  l:=k/i;
  writeln(l:3:3);
  readkey;
END.

[Xeon1024]

Спс))) Дай бог тебе здоровья=)

[ROMA2PVT]

ну а если файл типизированный то так вот:

Uses
   CRT;
var
    f:file of integer;
    l:real;
    i,n,a,k:integer;
begin
clrscr;
assign(f,'C:\file.txt');
rewrite(f);
write('Введите количество цифр: ');
readln(n);
for i:=1 to n do
begin
write('Число ',i,'-e:=');
readln(a);
write(f,a);
end;
clrscr;
k:=0;
i:=0;
writeln('Содержание исходного файла: ');
reset(f);
while not eof(f) do
 begin
  read(f,a);
  write(a,' ');
  inc(i);
  k:=k+a;
 end;
 l:=k/i;
writeln;
close(f);
writeln(l:1:3);
readkey;
end.

[Xeon1024]

А тебе ROMA2PVT еще большее спасибо. Как раз то, что надо!