Циклическая перестановка букв в слове

program znayu;
uses crt;
var x: string;
i: integer;
begin clrscr;
write('x = '); readln(x);
x := x + ' ';
for i := length(x)-1 downto 1 do
x[i+1] := x[i];
x[1] := x[length(x)];
delete(x,length(x),1);
writeln('new x = ',x);
 end.

var c:char;
............................
c:=x[1];//запомним первую букву
for i:=1 to length(s)-1 do//сдвинем все на 1 влево
x[i]:=x[i+1];
x[length(s)]:=c;//первую поставим в конец

program znayu;
uses crt;
var x: string;
c:char;
i: integer;
begin clrscr;
write('x = '); readln(x)
c:=x[1];//запомним первую букву
for i:=1 to length(s)-1 do//сдвинем все на 1 влево
x[i]:=x[i+1];
x[length(s)]:=c;//первую поставим в конец

program znayu;
uses crt;
var x: string;
    c:char;
    i: integer;
begin
write('x = ');
read(x);
c:=x[1];//запомним первую букву
for i:=1 to length(x)-1 do//сдвинем все на 1 влево
x[i]:=x[i+1];
x[length(x)]:=c;//первую поставим в конец
write(x);
end.

x[i]:=x[i+1];