Сортировка в файле

[Надежда1286]

Помогите решить задачу в Delphi: Дан файл f, компоненты которого являются целыми числами. Количество компонентов файла кратно 10. Записать в файл g наибольшее значение первых 10 компонент, затем следующих 10 компонент и так далее. Полученный файл отсортировать в порядке возрастания.

[_Колибри_]

procedure TForm1.Button1Click(Sender: TObject);
var
  ListIn, ListOut: TStringList;
  I, J: Integer;
  Max: Integer;
begin
  ListIn:= TStringList.Create;
  ListOut:= TStringList.Create;
  ListIn.LoadFromFile('c:\f.txt');

  I:= 0;

  while I < ListIn.Count-1 do
  begin
    Max:= StrToInt(ListIn.Strings[I]);

    for J:= I to I+9 do
      if StrToInt(ListIn.Strings[J]) > Max then
        Max:= StrToInt(ListIn.Strings[J]);

    ListOut.Add(IntToStr(Max));
    I:= I + 10;
  end;

  // сортировка
  t:= True;
  while t do
  begin
    t:= False;
    for J:= 0 to ListOut.Count-2 do
      if StrToInt(ListOut.Strings[J]) > StrToInt(ListOut.Strings[J+1]) then
      begin
        StrTemp:= ListOut.Strings[J];
        ListOut.Strings[J]:= ListOut.Strings[J+1];
        ListOut.Strings[J+1]:= StrTemp;
        t:= True;
      end
  end;


  ListOut.SaveToFile('c:\g.txt');
  ListIn.Free;
  ListOut.Free;
end;

[Serge_Bliznykov]

Сообщение от _Колибри_

ListIn.LoadFromFile('c:\f.txt');

нет, так не пойдёт...
ведь в условиях задачи сказано:

Дан файл f, компоненты которого являются целыми числами.

поэтому должно быть в программе:

var
  f : file of integer;

остальной код не смотрел...

[Надежда1286]

Я пробовала сделать так, но в сортировке чёт не получается:
const n=40;
var a: array [1..n] of integer;
c: array [1..n] of integer;
f1:textfile;
k,i,j:integer;
x1:byte;
b:boolean;

procedure vvod;
var i:integer;
begin
assign(f1,'text1.txt');
reset(f1);
for i:=1 to n do
begin;
read(f1,c[i]);
write(c[i],' ');
end;
end;


procedure Poisk_maks;
var i:integer;
begin
i:=1;
j:=1;
While i<n do
begin
for i:=1 to 10 do
begin
If c[i]<c[i+1]
then
c[i]:=c[i+1];
end;
a[j]:=c[i];
inc(j);
inc(k);
end;
end;


procedure sortirovka;
begin
b:=true;
while b do
begin
i:=0;
b:=false;
while i<k do
begin
i:=i+1;
if a[i]>a[i+1] then
begin
x1:=a[i];
a[i]:=a[i+1];
a[i+1]:=x1;
b:=true;
end;
end;
end;
writeln;
end;


procedure vuvod;
begin
i:=0;
while i<k do
begin
i:=i+1;
write(a[i]:3);
end;
end;

begin
vvod;
sortirovka;
Poisk_maks;
vuvod;
readln;
end.