[tane]

Здравствуйте,господа!

Организовать файл целых чисел из N компонент. Удалить из файла все отрицательные компоненты. Вывести содержимое файла до и после обработки.

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

Код:

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

  assignfile(f,'c:\file.txt');
  rewrite(f);
  for i:=1 to 15 do begin
    k := random(5)-2;
    write(f, k)
  end;
  CloseFile(f);

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