Цитата(volvo @ 16.10.2006 14:51) 

FAQ -> Методы сортировок (сортировка простой вставкой). 
Читай данные из файла в массив, сортируй, и выводи в другой файл...
Про НЕвозможность использования доп. массива в задании не сказано ни слова.
 Type   <--- 
Вот здесь ошибку выдает   arrType = Array[1 .. n] Of Integer;
Procedure Insert(Var ar: arrType; n: Integer);
  Var i, j, T: Integer;
  Begin
    For i := 1 To n do
      Begin
        T := ar[i];
        j := Pred(i);
        While (T < ar[j]) and (j > 0) Do
          Begin
            ar[Succ(j)] := ar[j]; Dec(j);
          End;
        ar[Succ(j)] := T;
      End;
  End;