В заданном слове произвести обмен первого и последнего символов - Turbo Pascal

Формулировка задачи:

В заданном слове произвести обмен первого и последнего символов. Я сделал, но мне сказали сделать без переменной "С" чтобы как-то оптимизировать программу. Вот мое решение но сделать нужно как-то по другому чуток

Program v2
var a,c:string;
i:integer;
begin
write('Введите слово');
read(a);
c:=a;
i:=length(a);
A[1]:=a[i];
A[i]:+C[1];
wrkite('полученное слово', a);
end.

Решение задачи: «В заданном слове произвести обмен первого и последнего символов»

Листинг программы

program v2;
var
  a: string;
  temp: char;
   f: integer;
begin
  write('Введите слово ');
  readln(a);
  f := length(a);
  temp := a[1];
  a[1] := a[f];
  a[f] := temp;
  writeln('полученное слово ', a);
end.

Объяснение кода листинга программы

Программа начинается с объявления переменных: a (строка), temp (символ), f (целое число).
Выводится сообщение «Введите слово », после чего считывается строка a с помощью функции readln.
Переменная f инициализируется значением длины строки a.
Символ из начала строки a сохраняется в переменной temp.
Строка a изменяется: первый символ заменяется на последний, последний символ заменяется на первый.
Строка a выводится на экран с помощью функции writeln.