Вданном слове произвести обмен первого и последнего символов.(на паскале)

Var A, C: string;
b: integer;
begin
read (A);
C:=A;
b:=length(A);
A[1]:=A[b];
A[b]:=C[1];
write (A);
end.

Program slovo;
var A,C:string; {Описание строковой переменной}   
    i:integer;
begin
read(A);
write('Первоначальное слово: ',A);
C:=A;   {"копирование" значения длинны строки(т. к. оно в дальнейшем быдет изменено)}
i:=length(A); {Присвоение переменной i значения длинны строки}
A[1]:=A[i];  {Присвоение первому значению значение последнего}
A[i]:=C[1];  {Присвоение последнеe значению значение первого}
write('Полученное слово: ',A);
end.