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

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

  • 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.