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

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

[not_programmer]

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

вот. что не понятно - спрашивай.

Добавлено через 1 мин.
В разделе описания переменных n:integer; - не нужно, удали