заместить символы так, чтобы ключевое слово начиналось с первой позиции

[Joistick]

Плз, помогите решить. Задача такая:
Есть ключевое слово и текстовый файл f1. Необходимо создать файл f2, который содержит ряды f1, символы в которых цыклично замещены так, чтобы ключевое слово начиналось с первой позиции. Ряды, которые не содержат ключевого слова в файл f2 не записываются.

Ниже код, но он выполняет только сдвиг ключевого слова на К позиций. Как сделать так, чтобы ключевое слово сдвигалось на первую позицию? И чтобы ряды, которые не содержат ключевого слова не записывались в новый файл

Надеюсь на помощь

uses crt;
var f1, f2: text;
    slovo, tmp: string;
    ch: char;
    k,i: integer;
 
begin
clrscr;
write ('Vvedite imya faila dlya chtenia: ');
readln (slovo);
assign(f1, slovo);
reset(f1);
write ('Vvedite imya faila dlia chtenia: ');
readln(slovo);
assign(f2, slovo); rewrite(f2);
write ('kliuchevoe slovo: ');
readln(slovo);
write('K= ');
readln(k);
while not eof(f1) do
 begin
 read(f1,ch);
 if ch = slovo[1] then
  begin
  tmp:=ch
  while not eof(f1) and (length(tmp)<length(slovo)) do
   begin
   read(f1,ch);
   tmp:=tmp+ch;
   end;
  if pos(tmp,slovo) = 1 then
   for i:=1 to k do
    if not eof(f1) then
     begin
     read(f1,ch);
     write(f2,ch);
     end;
    write (f2,tmp);
    end;
else write (f2,ch);
  end;
close(f1);
close(f2);
writeln('File bil uspeshno perepisan');
readkey;
end.

[s-andriano]

Что такое ряды применительно к текстовому файлу?

Если у Вас есть код, сдвигающий на К позиций, то для помещения ключевого слова в первую позицию нужно k := pos(ключевое слово, строка);

[Joistick]

спасибо, как раз использовал Pos