Дано целое число K и текстовый файл. Удалить из каждой строки файла первые K символов

var
f,f1:text;
s:string;
k:integer;
begin
  writeln('Введите число k');
  readln(k);
  assign(f,'C:\tmp.txt');
  assign(f1,'C:\tmp1.txt');
  reset(f);
  writeln('Первоначальное содержимое файла');
    while not EOF(f) do
      begin
        readln(f,s);
        writeln(s);
      end;
  close(f);
  rewrite(f1);
  reset(f);
    while not EOF(f) do
      begin
        readln(f,s);
         if k <> length(s) then
           begin
             Delete(s,1,k);
             writeln(f1,s);
           end;
      end;
    close(f);
    reset(f1);
    writeln;
    writeln;
    writeln('Изменённое содержимое файла');
    while not EOF(f1) do
      begin
        readln(f1,s);
        writeln(s);
      end;
  close(f1);
  Erase(f);
  Rename(f1,'C:\tmp.txt');
 
end.

While not EOF(f1) do begin{делать пока не закончится файл}
     i:=1;{переменная типа интеджер}
     while not EOLN(f1) do begin{делать пока не закончится строчка в файле}
             read(f1,C);{читаем символ из файла f1}
             if i<k then write(f2);{i-номер символа в строке, если он меньше К то ни чего не записываем в f2}
                     else write(f2,C);{если номер символа выше К то записываем данный символ в файл f2}
     end;
     writeln;{переход на новую строку}
end;