Повторения(Файл)

[ТРОЯН=)]

Всем привет,у меня вот проблемка-пограмма должна продублировать числа [5..10] но чтот неполучается,повторят только по 1 числу(((Помогите плиз!!

program File27;
 var
 f,f1:text;
 char,line,n:integer;
 fn,n2:string;
 strok:string;
begin
 writeln('File');
 readln(fn);
 assign(f,fn);
 reset(f);
 assign(f1,'ff');
 rewrite(f1);
 {$I-}
while not eof(f) do
  readln(f,n,line);
if line in [5..10]
 then
 begin
 writeln(f1,line,n);


end;
 close(f1);
 close(f);
 erase(f);
 rename(f1,fn);
end.
end.

[ponchikpk]

while not eof(f) do
  begin
  readln(f,n,line);
  if line in [5..10] then
    begin
    writeln(f1,line,n);
    end;
  end;

ты забыл операторные скобки в цикле поставить

[ТРОЯН=)]

Спасиб,заработала но.. чуть не так как хотел она то что в диапозоне копирует а остольное нет((