Сортировка record

[guroDragon]

Сообщение от Serge_Bliznykov

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

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

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

А можешь, плиз, написать код как выводить?
Я пытался написать, но что-то он ругался
Типу как-то так (сразу после предпоследнего end)

for i:=1 to 5 do
writeln(table[i]);

Или так нельзя выводить?

[Serge_Bliznykov]

А можешь, плиз, написать код как выводить?
Я пытался написать, но что-то он ругался

ну правильно ругался. Ведь table[i] - это же ЗАПИСЬ, там много чего может быть. Вы должны сами указать, что и как выводить.
ну, например, так:

type rec = record
        key:integer;
        body:string;
     end;


...
WriteLn('Содержимое:');
WriteLn('---------------------------------------------------------');
WriteLn('|  key   | тело                                                 |');
WriteLn('---------------------------------------------------------');
for i:=1 to 5 do
  writeln('| ',table[i].key:7,' | ',table[i].body,' |' );
WriteLn('---------------------------------------------------------');

[wsw]

var kl : boolean;
   tmp : rec;

repeat
     kl:=false;
     for i:=1 to 5 do
        if table[i].key > table[i+1].key
         then
           begin
              tmp:=table[i];
              table[i]:=table[i+1];
              table[i+1]:=tmp;
              kl:=true;
           end;
until not kl;