program ConvertString;
var
  Alpha, Beta, Gamma: string;
                   i: integer;
begin
  Writeln('Выполнил 6-ую Лабораторную работу студент группы 731-311 Игонин Виталий.');
  Writeln('***************************************************************************');

  Alpha := ' What do we study? ';
  Gamma := ' Object Pascal. ';

  Writeln('Исходная строка: ' + Alpha);
  Beta := 'Now ' + Copy(Alpha, 10, 8) + Copy(Gamma, 1, 14);
  Writeln('Результат: ' + Beta);

  Writeln('***************************************************************************');
  Writeln('Длина Beta: ', Length(Beta));

  // Вывод каждого символа строки Beta в обратном порядке
  Writeln('Символы строки Beta в обратном порядке:');
  for i := Length(Beta) downto 1 do Write(Beta[i] + ' ');

  Delete(Beta, 1, 1);
  Insert(Upcase(Alpha[9]), Beta, 1);

  Writeln;
  Writeln('***************************************************************************');

  Writeln('Программа завершена. Спасибо за внимание!');

  ReadLn;
end.