файл

[gunit]

Дан типизированный файл F содержащий информацию об услугах. О каждой услуги представлена следующая информаци: Наименование услуги, Цена услуги. За один просмотр и без использования дополнительных файлов напечатать элементы файла F в алфавитном порядке. Порядок в этом списке определяется первой буквой наименования услуги.

[Stilet]

Ну и в чем проблема? Запиши содержимое файла в динамический массив и сортируй его как хочешь. Как динмассивы создавать знаешь?

[gunit]

да я первый раз сталкиваюсь с паскалем помогите плиз оч прошу

[Stilet]

type r=record
  i:integer;
  s:string[50];
 end;

var f:file of r; rp,last,q:^r; mass:pointer; z:integer; m:r;

 procedure aga(s:string); var rr:r; begin rr.s:=s;rr.i:=random(100); write(f,rr);end;
begin
 Assign(f,'file');rewrite(f);
  aga('Pirates');   aga('Hello');
 reset(f);
 z:=filesize(f)*sizeof(r); // Вычисляем размер для массива
 GetMem(mass,z); // Забиваем память побайтно для всего файла
 rp:=mass;    // mass это голова массива, rp - итератор
 while not eof(f) do begin // Считываем записи в массив
  read(f,rp^);
  writeln(rp^.s);
  inc(rp); // Итератор перескакивает на следующий элемент для считывания
 end;  last:=rp; // last - типа конец массива. Неэстетично но ничего страшного

 // Почалась канитель с сортировкой
 rp:=mass;
 // Пока итератор не достиг конца массива
 while rp<>last do begin
   // сортируем. Пузырькова сортировка
   q:=mass;
   // по этому же массиву другим итератором (см. алгоритм пузырька)
   while q<>last do begin
    if q^.s[1]>rp^.s[1] then begin
      m:=q^;q^:=rp^;rp^:=m;
    end;
    inc(q);
   end;
  inc(rp);
 end;

 // Для вывода опять становимся итератором в начало массива
 rp:=mass;
 while rp<>last do begin
 // И выволим на экран
  writeln(rp^.i:10,rp^.s:20);
  inc(rp);
 end;

 // Прибираем мусор
 Dispose(mass);
 Close(f);
 readln;
  { TODO -oUser -cConsole Main : Insert code here }
end.

Надеюсь все понятно?

[gunit]

большое спасибо !!