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

[shikaka]

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

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

[volvo]

lapp, у тебя в коде есть конструкция, которая при запуске программы, откомпилированной под Турбо Паскалем с установленной опцией "Range Checking" выдаст "RunTime Error 201" (эта опция, кстати, устанавливается по умолчанию, так что вероятность получения подобной ошибки довольно велика)... Вот здесь:

for i:=1 to n do begin
  mas[i]:=random(20)-10; { <--- !!! Range Check Error !!! }
  write(f,mas[i]);
  ind[i]:=i;
end;

Для устранения ошибки - делаем так:

for i:=1 to n do begin
  mas[i]:=Integer(random(20))-10; { <--- Type Cast, и все нормально }
  write(f,mas[i]);
  ind[i]:=i;
end;