Сортировка типизированого файла

[shadezx]

нужно отсортировать содержимое типизированного файла методом слияния,
есть набросок сортировки пузырьком, а вот со слиянием проблемы

type
    dist = Record
    KodCycl:integer;
end;
mas = array[1..20]of dist;
m:mas;
var f:file of integer;
    size,a,b,i,j,x:integer;
begin

assign(f,'fileF');
rewrite(f);

  for i:=1 to 20 do
  write(f,m[i].KodCycl);
writeln('Soderjanie input file:');
size:=filesize(f);
writeln('---',size,'---');
reset(f);
while not eof(f) do
 begin
  read(f,a);
  write(a,' ');
 end;
writeln;
close(f);
reset(f);
for i:=0 to filesize(f)-2 do
for j:=i+1 to filesize(f)-1 do
  begin
    seek(f,i);
    read(f,a);
    seek(f,j);
    read(f,b);
    if a>b then
      begin
       x:=a;
       a:=b;
       b:=x;
       seek(f,i);
       write(f,a);
       seek(f,j);
       write(f,x);
      end;
   end;
close(f);
writeln('Soderjanie sorted file:');
reset(f);
while not eof(f) do
 begin
  read(f,a);
  write(a,' ');
 end;
close(f);

буду благодарен за помощь.

[min@y™]

эточо, турбопаскакаль, штоли?