Типизированный файл. Помогите доработать. Паскаль

[Тетрадь]

Ребят, еще один вопрос. Почему не считает среднее арифметическое? Он только первого подсчитывает.

procedure count(var sved:svedd);
var q, w, i, n: integer; z, x: real;
lepsved:svedd;
begin
reset(sved);
read(sved,lepsved);
  WriteLn;
  q := 0;
  w := 0;
  for i:=1 to n do
  begin
    q := q + lepsved.day;
    w := w + lepsved.month;
  end;
  z := q / n;
  x := w / n;
  WriteLn(' Average date: ',z:0:0, ' ', x:0:0);
  close(sved); assign(sved,'lep_zar');
  end;
end.

[ZX Spectrum-128]

Я уже в предыдущем сообщении ответил. Читайте внимательнее. Вы читаете из файла только первый элемент. Как прочитать все элементы из файла смотрите выше.

[Тетрадь]

Он просто по нулям выводит(, что то я неправильно прописываю. Он не считает среднее арифметическое

[ZX Spectrum-128]

program pro1;

uses op, obrabotki;

var
sved:klass;

begin
  vvod;
//(sved);
  vivod;
  //(sved);
  count;
  //(sved);
end.

unit obrabotki;
interface
uses op;

procedure vvod;
//(var sved:svedd);
procedure vivod;
//(var sved:svedd);
procedure count;
//(var sved:svedd);
implementation

procedure vvod;
//(var sved:svedd);
var
  i, n: integer;
  lepsved: klass;
begin
  assign(sved,'lep_zar.dat');
  rewrite(sved);
//  repeat
    writeln('Введите количество учеников:');
    readln(n);
//  until n in [1..maxk];
  for i := 1 to n do
  begin
    writeln(i, '-й ученик: ');
    with lepsved do begin
      write('Фамиия ученика: ');
      readln(secname);
      write('Инициалы: ');
      readln(io);
      write('Введите день: ');
      readln(day);
      write('Введите месяц: ');
      readln(month);
      write('Введите год рождения:');
      readln(year);
      write(sved, lepsved);
    end;
  end;
  close(sved);
end;


procedure vivod;
//(var sved:svedd);
var
  i,n: integer;
  lepsved:klass;
begin
  assign(sved,'lep_zar.dat');
  reset(sved);
  writeln('-----------------------------');
  writeln('Ученик': 10, 'Дата': 10);
  writeln('-----------------------------');
  while not eof(sved) do
  begin
  read(sved,lepsved);
  with lepsved do begin

    write(lepsved.secname: 5);
    write(' ', lepsved.io: 3);
    write('  ', lepsved.day: 2);
    write('.', lepsved.month: 2);
    writeln('.',lepsved.year: 4);
  end;
  end;
  write('--------------------------------');
  close(sved);
end;

procedure count;
//(var sved:svedd);
var q, w, i, n: integer; z, x: real;
lepsved:klass;
begin
  assign(sved,'lep_zar.dat');
  reset(sved);
  n:=0;
  q := 0;
  w := 0;

while not eof (sved) do
begin
  read(sved,lepsved);
  WriteLn;
//  for i:=1 to n do
  begin
    q := q + lepsved.day;
    w := w + lepsved.month;
    inc(n);
  end;
end;
  z := q / n;
  x := w / n;

  WriteLn(' Average date: ',z:0:2, ' ', x:0:2);

  close(sved);
  end;
end.

unit op;
interface
const maxk=10;
type klass = record
             secname:string[20];
             io:string[5];
                        day:1..31;
                        month:1..12;
                        year:1995..2007;
             end;
svedd = file of klass;
var
sved : svedd;
implementation
end.