[poli-smen]

Сообщение от tane

Вот запись у файл чисел,но вместо чисел - иероглифы.
1?

Код:

var f: file of integer; i, j, k, m: integer;

Ну так потому что ты объявил файл типизированный (т.е. бинарный).
Текстовые файлы объявляются так:

Код:

var f: TextFile;

Сообщение от tane

2)Как нам удалить отрицательные компоненты?
Помогите пожалуйста решить эту задачу.

С помощью двух файлов: первый с исходными числами, а второй пустой. Читаешь в цикле все числа из первого файла и если число отрицательное - пропускаешь его, иначе записываешь его во второй файл.