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

uses
  crt;
var
  f: file of integer;
  i, j, r, r1, r2, k: integer;
  flag: boolean;
Begin
  clrscr;
  assign(f, 'data.dat');
  rewrite(f);
  write('Ââåäèòå ÷èñëî ýëåìåíòîâ: '); readln(k);
  for i:=1 to k do
  begin
    r:=random(100);
    write(f, r);
    write(r:4)
  end;
  i:=0;
  repeat
    flag:=False;
    for j:=k-2 downto i do
    begin
      seek(f, j);
      read(f, r1);
      read(f, r2);
      if r1>r2 then
      begin
        seek(f, j);
        write(f, r2);
        write(f, r1);
        flag:=True
      end
    end;
    inc(i)
  until not flag;
  seek(f, 0);
  writeln;
  for i:=1 to k do
  begin
    read(f, r);
    write(r:4)
  end;
  close(f)
end.

uses crt;
var f:file of integer;
    n,a,b,i,j,k:integer;
begin
clrscr;
randomize;
assign(f,'fileF');
rewrite(f);
write('Сколько чисел записать в файл n=');
readln(n);
for i:=1 to n do
 begin
  a:=random(100);
  write(f,a);
 end;
writeln('Содержание исходного файла:');
reset(f);
for i:=0 to filesize(f)-1 do
 begin
  read(f,a);
  write(a:4);
 end;
writeln;
writeln;
seek(f,0);
for i:=0 to filesize(f)-2 do{от первого до предпоследнего проверяем}
 begin
  k:=i;{номер наибольшего впереди, пока i}
  for j:=i+1 to filesize(f)-1 do{смотрим впереди до последнего}
   begin
    seek(f,k);
    read(f,a);
    seek(f,j);
    read(f,b);
    if b<a then k:=j;{если нашли меньше чем был}
   end;
  seek(f,i);{меняем элементы с индексами i,k}
  read(f,a);
  seek(f,k);
  read(f,b);
  seek(f,i);
  write(f,b);
  seek(f,k);
  write(f,a);
 end;
seek(f,0); {снова в начало}
writeln('Отсортированный файл:');{выводим на экран}
for i:=0 to filesize(f)-1 do
 begin
  read(f,a);
  write(a:4);
 end;
close(f);
readln
end.