Дано слово длиной не менее 8 символов написать программу которая переносит 1 букву в конец слова

uses crt;
var
  s:string;p:char; i:integer;
begin
  write('Введи слово, в котором не менее 8 букв:  '); readln(s);
  if length(s)<8 then write('Вы ввели слишком короткое слово.')
  else
  begin
    p:=s[1];
    for i:=1 to length(s) do

      s[i]:=s[i+1];
      s[i]:=p;
      write(s);
  end;
end.