Упорядочение чисел в файле

[kniazkinP]

Здравствуйте! Помогите отловить до конца ошибку в задании - упорядочить сведения о багаже, записанные в файле багаж по возрастанию веса багажа. В файле 2 столбца - количество вещей (a[i].k) и вес в килограммах - (a[i].w).
Вот программа -

program Project1;
 
{$APPTYPE CONSOLE}
 
uses
  SysUtils;
 
Const n=4;
Label m;
Var f1:text;
    a:array[1..n] of record
                     k:integer;
                     w:real;
                     end;
    i:byte;
    s:real;
    R:real;
    x:integer;
Begin
 s:=0;
 Assign(f1,'bagazh.txt');
 Reset(f1);
 For i:=1 to n do
 begin
 read(f1,a[i].k);readln(f1,a[i].w);
 end;
 for i:=1 to n do
 s:=s+a[i].k;
 s:=s/n;
 
 
 Writeln('Passanger with 1 things vesom <30');{вывод багажа c 1 вещю, весом менее 30кг}
 For i:=1 to n do
 If a[i].k=1 then writeln('Bagazh number ',i);
 Writeln;
 Writeln;
 
 
 Writeln('Passangers with 2 or more things');{вывод багажа с больше, чем 2 вещами}
 For i:=1 to n do
 If a[i].k>2 then writeln('Bagazh number ',i);
 Writeln;
 
 
 
 Writeln;
 Writeln('Things in bagazh more than average');{вывод багажа, с кол-вом вещей больше среднего арифметического}
 For i:=1 to n do
 If a[i].k>s then writeln('Bagazh number ',i);
 Close(f1);
 readln;

я сортирую вот так по весу, но не выходит

m:  For i:=1 to n do
      Begin
         if a[i].w<a[i+1].w then  Begin
                                i:=a[i];
                                x[i]:=x[i+1];
                                x[i+1]:=R;
                                goto m;
                                end;
      End;
 
      Writeln ('Отсортированный массив:');
      for i:=1 to n do
      Writeln (a[i],'  ');
      Writeln;
      Readln;

[rubius2008]

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

я сортирую вот так по весу, но не выходит

m:  For i:=1 to n do
      Begin
         if a[i].w<a[i+1].w then  Begin
                                i:=a[i];
                                x[i]:=x[i+1];
                                x[i+1]:=R;
                                goto m;
                                end;
      End;
 
      Writeln ('Отсортированный массив:');
      for i:=1 to n do
      Writeln (a[i],'  ');
      Writeln;
      Readln;

1. Происходит выход за рамки массива(данных), идет обращение к n+1 элементу (а там не понятно что). Надо в цикле вместо n написать до n-1.
2. Тут видимо описались

i:=a[i]; x[i]...

так как должно

R:=a[i];
a[i]:=a[i+1];
a[i+1]:=R;

причем R должна быть типа-запись

[kniazkinP]

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

причем R должна быть типа-запись

Прописать ещё в var?

R:array[1..n] of record

[kniazkinP]

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

i:=a[i]; x[i]...

Да здесь я немного не о том задумался..
Сделал вот так:

 R:array[1..n] of record
    x:integer;
    end;
....
 m:  For i:=1 to n-1 do
      Begin
         if a[i].w<a[i+1].w then  Begin
                                R:=a[i];
                                a[i]:=a[i+1];
                                a[i+1]:=R;
                                goto m;
                                end;
      End;

      Writeln ('Отсортированный массив:');
      for i:=1 to n do
      Writeln (a[i],'  ');
      Writeln;
      Readln;

Вот тут ошибка типов Array и record

[rubius2008]

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

Да здесь я немного не о том задумался..
Сделал вот так:

 R:array[1..n] of record
    x:integer;
    end;
....
 m:  For i:=1 to n-1 do
      Begin
         if a[i].w<a[i+1].w then  Begin
                                R:=a[i];
                                a[i]:=a[i+1];
                                a[i+1]:=R;
                                goto m;
                                end;
      End;

      Writeln ('Отсортированный массив:');
      for i:=1 to n do
      Writeln (a[i],'  ');
      Writeln;
      Readln;

Вот тут ошибка типов Array и record

R - должно быть того же типа что и элемент массива. Сделай так

Type Myrec = record
           k:integer;
           w:real;
     end;
Var a:array[1..n] of Myrec;
    R:Myrec;

[kniazkinP]

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

Сделай так

Type Myrec = record
           k:integer;
           w:real;
     end;
Var a:array[1..n] of Myrec;
    R:Myrec;

Да, спасибо! но теперь вообще не понимаю ошибку

Writeln ('Отсортированный массив:');
      for i:=1 to n do
      Writeln(a[i],'  ');
      Writeln;
      Readln;

[DCC Error] Project1.dpr(70): E2054 Illegal type in Write/Writeln statement

Вот такой код стал до begin

Const n=4;
Label m;
Type Myrec = record
           k:integer;
           w:real;
     end;
Var a:array[1..n] of Myrec;
    R:Myrec;
    f1:text;
    i:byte;
    s:real;
    x:integer;

[Stilet]

Ты же с массивом записей работаешь.

 Writeln(a[i].i,'  ',a[i].w);

[kniazkinP]

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

Ты же с массивом записей работаешь.

Да! Тогда получается тут тоже не a[i] ?

 m:  For i:=1 to n-1 do
      Begin
         if a[i].w<a[i+1].w then  Begin
                                R:=a[i];
                                a[i]:=a[i+1];
                                a[i+1]:=R;
                                goto m;
                                end;
      End;

Хотя я уже понял Всё решено, спасибо!