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

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.