Цитата(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;