Ошибка в процедуре сортировки типизированного файла.

Procedure sort(var h:f);
begin
reset(h);
for i:=1 to filesize(h)-2 do
    for j:=i+1 to filesize(h)-1 do begin
        seek(h,i);
        read(h,m);
        seek(h,j);
        read(h,k);
        if m.bal>k.bal then begin
           buf:=m;
           m:=k;
           k:=buf;
           seek(h,i);
           write(h,m);
           seek(h,j);
           write(h,buf);
           end;
    end;
close(h);
end;

program Chislo;
uses crt;
type
    f = record
    bal: integer;
    end;
 
var h: file of f;
    c: f;
    i, j: integer;
 
procedure sort;
var m, k, buf: f;
begin
for i:=0 to filesize(h)-1 do
    for j:=i+1 to filesize(h)-1 do begin
        seek(h,i);
        read(h,m);
        seek(h,j);
        read(h,k);
        if m.bal>k.bal then begin
           buf:=m;
           m:=k;
           k:=buf;
           seek(h,i);
           write(h,m);
           seek(h,j);
           write(h,buf);
           end;
    end;
end;
 
begin
clrscr;
Write('Vvod');
Assign(h, 'N1111.pas');
rewrite(h);
for i:=1 to 10 do
    begin
    Read(c.bal);
    Write(h, c);
    end;
sort;
seek(h, 0);
for i:=1 to 10 do
    begin
    Read(h, c);
    Write(c.bal);
    end;
close(h);
ReadLn;
ReadLn;
end.