Файл записей - вес

uses crt;
type person=record
            im:string[10];
            vz:1..80;
            vs:10..120;
            end;
    fail=file of person;
var f:fail;
    z:person;
    c:char;
    n,i,k:byte;
    sr:real;
begin
clrscr;
assign(f,'person');
rewrite(f);
writeln('Введите данные о возрасте и весе, окончание ввода Esc');
n:=0;
repeat
n:=n+1;
writeln('Запись ',i);
with z do
 begin
  write(' Имя: ');readln(im);
  repeat
  write(' Возраст [1..80]: ');
  readln(vz);
  until vz in [1..80];
  repeat
  write(' Вес [10..120]: ');
  readln(vs);
  until vs in [10..120];
  write(f,z);
 end;
c:=readkey;
until c=#27;
clrscr;
writeln('Полный список исследуемых:');
writeln;
writeln('-------------------------');
writeln('|   Имя   |Возраст| Вес |');
writeln('-------------------------');
reset(f);
sr:=0;
n:=filesize(f);
while not eof(f) do
 begin
  read(f,z);
  with z do
   begin
    gotoXY(1,whereY);write('| ',im);
    gotoXY(11,whereY);write('|',vz:5);
    gotoXY(19,whereY);write('|',vs:4);
    gotoXY(25,whereY);writeln('|');
    sr:=sr+vs;
   end;
 end;
writeln('-------------------------');
close(f);
write('Press Enter...');
readln;
clrscr;
sr:=sr/n;
writeln('Список лиц со средним весом больше среднего:');
writeln('         (средний вес=',sr:0:2,')');
writeln;
writeln('-------------------------');
writeln('|   Имя   |Возраст| Вес |');
writeln('-------------------------');
reset(f);
while not eof(f) do
 begin
  read(f,z);
  with z do
  if vs>sr then
   begin
    gotoXY(1,whereY);write('| ',im);
    gotoXY(11,whereY);write('|',vz:5);
    gotoXY(19,whereY);write('|',vs:4);
    gotoXY(25,whereY);writeln('|');
    sr:=sr+vs;
   end;
 end;
writeln('--------------------------');
write('Press Enter...');
readln
end.