ДАНО СЛОВО ДЛИНОЙ НЕ МЕНЕЕ 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.