Скопировать из файла F1 в файл F2 строки, начиная с К до К+5- Pascal(Паскаль)

program copy;
uses crt;
var fin, fout: text;
    count, k: integer;
    s: string;
Begin
 assign(fin,'in.txt');
 reset(fin);
 
 assign(fout,'out.txt');
 rewrite(fout);
 
 write('K = '); readln(k);
 
 while ((not eof(fin))and(count<k+4)) do
 begin
  inc(count);
  readln(fin,s);
  
  if (count>=k) then writeln(fout,s);
 end;
 
 writeln('Copy was done..');
 
 close(fin);
 close(fout);
End.