Дано число k<10, введенное с клавиатуры и текстовый файл, содержащий более k строк. Удалить из него первые k строк. Результат вывести на экран

uses crt;
var f,f1:text;
    i,k,c:integer;
    x:string;
begin
     write('Введите число k<10: ');
     readln(k);
     writeln;
assign(f,'C:\Users\AleKs\Desktop\Файлы\k.txt');
assign(f1,'C:\Users\AleKs\Desktop\Файлы\k2.txt');
rewrite(f);
     writeln(f,'Понедельник');
     writeln(f,'Вторник');
     writeln(f,'Среда');
     writeln(f,'Четверг');
     writeln(f,'Пятница');
     writeln(f,'Суббота');
     writeln(f,'Воскресение');
     writeln(f,'Зима');
     writeln(f,'Июнь');
     writeln(f,'Февраль');
     writeln(f,'Универ');
close(f);
reset(f);
while not eof(f) do begin
                         readln(f,x);
                         writeln(x);
                         end;
                         close(f);
writeln;
writeln('Удаляем первые ',k,' строк');
writeln;
reset(f);
rewrite(f1);
while not eof(f) do begin
                         readln(f,x);
                         c:=c+1;
                         if c>k then begin writeln(f1,x) end;
                    end;
                         close(f);
                         close(f1);
reset(f1);
rewrite(f);
while not eof(f1) do begin
                         readln(f1,x);
                         writeln(f,x);
                         end;
                         close(f1);
                         close(f);
reset(f);
while not eof(f) do begin
                         readln(f,x);
                         writeln(x);
                         end;
close(f);
 
     end.