[Asira]

помогите пожалуйста написать цикл который после каждого положительного числа файла F1 вставит 0.....

Код:

while
     not eof(f1) do
    begin
     read(f1,n);
     if n>0 then n: ??????????
     inc(co)

Не могу понять как после положительного вставить 0...;