В словах (например, "шабаш", "казак") первую и последнюю букву сделать большими - Turbo Pascal

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

ХЕЕЕЛП

Решение задачи: «В словах (например, "шабаш", "казак") первую и последнюю букву сделать большими»

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

const
  AlphBg='АБВГДЕЁЖЗИЙКЛМНОПРСТУФХЦЧШЩЪЫЬЭЮЯ';
  AlphSm='абвгдеёжзийклмнопрстуфхцчшщъыьэюя';
  
var
  s: string;
  fl: boolean;
  i: integer;
 
begin
  write('Введите слово: ');
  readln(s);
  fl:=true;
  for i:=1 to length(s) do
    if s[i]<>s[length(s)-i+1] then
      begin
        fl:=false;
        break;
      end;
  if fl then
    if s[1] in ['a'..'z'] then
      begin
        s[1]:=upcase(s[1]);
        s[length(s)]:=s[1];
      end
    else
      for i:=1 to length(AlphSm) do
        if s[1]=AlphSm[i] then
          begin
            s[1]:=AlphBg[i];
            s[length(s)]:=s[1];
            break;
          end;
  writeln(s);
end.

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

Данный код написан на языке Turbo Pascal и выполняет следующую задачу: проверяет, является ли введенное слово словом из заданного набора слов. Если это слово, то первая и последняя буква в слове делаются заглавными. Константы AlphBg и AlphSm представляют собой наборы букв в верхнем и нижнем регистре соответственно. Переменные s, fl и i используются для хранения введенного слова, флага проверки слова и индекса текущего символа в слове соответственно. Цикл for проходит по каждому символу в слове. Если текущий символ не равен следующему символу, то флаг fl устанавливается в false и цикл прерывается. Если слово является словом из заданного набора, то первая и последняя буква в слове заменяются на заглавные буквы из соответствующего набора. На выходе программа выводит измененное слово.