Сортировка record

[guroDragon]

поменял, ничего нового(

[Аватар]

Ёлы-палы. Так покажи как поменял, где ничего нового

[guroDragon]

procedure FileSort;
var
i,k:integer;
j:rec;
Begin
        clrscr;
        for i:=1 to 4 do
                For k:=2 to 5 do
                if table[i].key>table[k].key then
                begin
                        j:=table[i];
                        table[i]:=table[k];
                        table[k]:=j;
                        end;

[Аватар]

Сделай же For k:=i+1 to 5 do
Не будет сортировать For k:=2 to 5 do

[guroDragon]

ниче не поменялось :-(

[Аватар]

Показывай как поменял, где ниче не поменялось

[Serge_Bliznykov]

нет, пузырёк пишется чуть по другому.
я бы всё таки написал так:

procedure FileSort;
var
  i,k:integer;
  tmp:rec;
Begin
    clrscr;
     for i:=1 to 4 do
          For k:=i+1 to 5 do
             if table[i].key>table[k].key then
             begin
                tmp:=table[i];
                table[i]:=table[k];
                table[k]:=tmp;
             end;

[type_Oleg]

Виноват, бес попутал по поводу i+1, Аватар прав.
Вот так работает, пробовал.

procedure FileSort;
var
i,k:integer;
j:rec;
Begin
  clrscr;
  for i:=1 to 4 do
   for k:=i+1 to 5 do
    if table[i].key>table[k].key then
      begin
       j:=table[i];
       table[i]:=table[k];
       table[k]:=j;
      end;
end;

Я только сортировку пробовал, остальное нет.
Сортировка сортирует нормально.

[Serge_Bliznykov]

я посмотрел целиком код TC.
вижу, что вызывается процедура сортировки.
Не вижу, где отсортированный массив table выводится на экран?!

Возможно, он (автор) ошибочно считает, что данный код сортирует не только массив в памяти, но и, каким то чудесным образом, изменяет и содержимое файла?!!!

впрочем, до тех пор, пока он не пояснит, каким же образом он видит, что ничего не поменялось - уверенности в этом нет!

[type_Oleg]

А я вообще ничего не понял в основной программе. Но я как А.Райкин : " к пуговицам претензии есть ? .. нет .." Сортировка сортирует.