Записи! Опции

[programerNOX]

Задание:
Составить програму упорядоченея списка бригады в порядке убывания производительности(ведомость сделать в файле);
То что я зделал:

Program Pr1;
  uses crt;
  const
      n=3;
      kolchasov=8;
  type
      y=record
        nn:integer;
        fio:string[15];
        kol:real;
        vp:array[1..8] of real;
        vrem:real;
        proiz:real;
      end;
      r=array[1..n] of y;
  var
     x:r;
     i,j:integer;
     s:y;
     fl:boolean;
  Procedure vvod;
    var
      i:integer;
      f:text;
  begin
      clrscr;
      writeln('Создание файла');
      readkey;
      assign(f,'c:vedomost.txt');
      rewrite(f);
      writeln('Файл создан­');
      readkey;
      for i:=1 to n do
        begin
            x[i].nn:=1;
            textcolor(3);
            writeln('Заполнение ведомости');
            write('ФИО : ');
            readln(x[i].fio);
            writeln(f,'ФИО : ', x[i].fio);
            write('Количество часов за смену : ');
            readln(x[i].kol);
            writeln(f,''Количество часов за смену :',x[i].kol:4 :2);
            write('Выпускаемая продукцыя : ');
             for j:=1 to kolchasov do
               begin
                 writeln('за ', j ,' час  ');
                 readln(x[i].vp[j]);
                 writeln(f,'за ',j,'час',x[i].vp[j]:4 :2);
               end;
             write('Время простоя : ');
             readln(x[i].vrem);
             writeln(f,'Время простоя : ', x[i].vrem);
             write('Произ. деталей в еденицу времени :');
             x[i].proiz:=x[i].vp[kolchasov]/(x[i].kol-x[i].vrem);
             writeln(x[i].proiz:4 :1);
             writeln(f,'Произ. деталей в еденицу времени :',x[i].proiz);
        end;
        close(f);
  end;
begin

  vvod;
end.

Как мне упорядочить список и как вывести содержымое списка(что находится в файле) на екран???
Пожалусто помогите к завтрешнему дню!

[programerNOX]

Помогите!