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.
Не пойму почему не работает, файл создал в С, но прога выкидывает лишь чистый экран, а в задании другое....помогите плиз