Дано целое число K и текстовый файл. Удалить из каждой строки файла первые K символов (если длина строки меньше K, то удалить из нее все символы) — Pascal(Паскаль)

program _;

var
  f: text;
  k, q: integer;
  s: string;

begin
  assign(f, 'f.text');
  rewrite(f);
  writeln('k=');
  readln(k);
  writeln('-------');
  readln(s);
  q := length(s);
  write(f);
  close(f);
  reset(f);
  while not eof(f) do
  begin
    read(f);
  end;
  if q >= k then
  begin
    delete(s, 1, k);
    writeln(s);
  end
  else
  begin
    delete(s, 1, 256);
    writeln('-------', s);
  end;
  close(f);

end.