Работа с файлом, 1 операция с файлом Опции

[Инкогнито]

Задание: Дан файл целых чисел. Удалить из него все отрицательные числа.

uses crt;
 var i,j:integer;
     a:array [1..30000] of integer;
begin
 clrscr;
 assign(input,'c:\input.txt');
  reset(input);
i:=1;
  while not eof(input) do
   begin
    read(a[i]);
    i:=i+1;
   end;
  close(input);
  assign(output,'c:\input.txt');
   rewrite(output);
   for j:=1 to i do
    if a[j]>0 then write(a[j]:4);
    close(output);
 readkey;
end.

Не пойму почему не работает, файл создал в С, но прога выкидывает лишь чистый экран, а в задании другое....помогите плиз

[volvo]

Не-а, пустой экран...

А файл? ТЫ результат должен в файл записать или как? Вот и проверяй в файле... Кстати, "файл целых" <> "текстовый файл", это так, к слову, чтоб потом не удивлялся, если придется переделывать...