А в коде очень много странных вещей:
в процедуре vkluch
1). открывается файл f для чтения (reset(f)), затем идёт цикл (while not eof(f)), но в этом цикле я не увидел ни одного чтения. Это, кстати, наверняка и причина зацикленности (зависания).
2) внутри цикла сравниваются массивы "B" и "A" (while (j>1) and (B[j-1]>A[i])). Во-первых, массив B локальный, не инициализирован и, значит, содержит мусор. Почему вы пишите то "a", то "A" (и для "B" тоже)? Для Delphi это всё равно, но вы уверены, что это тот же массив. Почему у одного массива длина 1.000, а у другого 10.000?
|