Работа с файлом, 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.

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