отсортировать элементы файла

[Ostapov]

да, все плохо(, пожалуйста, можешь все сам соединить, я не пойму.

[Ostapov]

const
 r=100;
type
    t_goroda = record
      name: string[10];
      chislen:integer;
    end;
 arrg = array[1..r] of t_goroda;
 
var
    f,f1: file of t_goroda;
    i,a: Integer;
    goroda:arrg;
begin
  Assign(f,'notebook.txt');
  Rewrite(f);
  for i:=1 to 4 do
    with goroda[i] do 
    begin
      Write('Город: ');
      ReadLn(name);
      Write('Численность: ');
      ReadLn(chislen);
        Write(f, goroda[i]);
 end;
Assign(f1,'notebook1.txt');
  Rewrite(f1);
        i:=1;
        reset(f);
        while not eof(F) do
        begin
        read(f,goroda[i]);
    if goroda[i].chislen <goroda[i+1].chislen then
     begin 
      a:=goroda[i].chislen;
      goroda[i].chislen:=goroda[i+1].chislen;
      goroda[i+1].chislen:=a;
     end;
     inc(i);
     Write(f1, goroda[i]);
  end;
  
  Close(f);
  close(f1);
end.

так?