помогите с типизированным файлом Опции

[shikaka]

Помогите! Пожалуйста с типизированным файлом: Задание:
Создать исходный целочисленный файл. Сформировать новый файл, содержащий номера позиций в исходном файле в порядке возрастания значений чисел, стоящих на соответствующих позициях.

Очень надо - последняя прога, а я не понимаю как её сделать

[Lapp]

Bokul, понял ты все правильно, судя по словам и примерам (кстати, какие тут могут быть варианты? Условие написано кристально ясно), а вот решение у тебя неверное.. Ты его проверял?

Ошибка в том, что при "сортировке" ты перекладываешь индексы, а значения самого массива не перекладываешь. Реальной сортировки не получается (потому я взял это слово в кавычки), и результат неправильный.

Есть еще пара замечаний..
1. Зачем тащить за собой CRT? Для ClrScr? Но ты даже ничего не печатаешь!
2. Не рекомендую использовать переменную с именем Index.
3. Зачем давать типизированному (integer) файлу расширение .txt ?
4. Последнее совсем несущественное: создавая файл, не надо забывать, что целые бывают отрицательными..

А в остальном все вроде верно..
Ниже привожу исправленный (и проверенный ) код.

const
  n=10;
var
  f,res: file of integer;
  i,j,buf:integer;
  mas,ind:array[1..n] of integer;

begin
  assign(f,'shikaka1.int');
  rewrite(f);
  for i:=1 to n do begin {создаем файл целых чисел, и сразу заполняем массивы}
    mas[i]:=random(20)-10;
    write(f,mas[i]);
    ind[i]:=i;
  end;
  close(f);
  for i:=1 to n do Write(mas[i]:3);
  WriteLn;
  for i:=1 to n do Write(ind[i]:3);
  WriteLn;
  for i:=1 to n do
    for j:=n downto i+1 do
      if mas[pred(j)] > mas[j] then begin
        buf:=mas[pred(j)];     {Сортировка массива}
        mas[pred(j)]:=mas[j];
        mas[j]:=buf;
        buf:=ind[pred(j)];     {Сортировка индексов}
        ind[pred(j)]:=ind[j];
        ind[j]:=buf;
      end;
  for i:=1 to n do Write(ind[i]:3);
  WriteLn;
  assign(res,'shikaka2.int');
  rewrite(res);
  for i:=1 to n do write(res,ind[i]);   {Пишем второй файл}
  close(res);
  readln;
end.