var

  s1, s2: string;

  i, n1, n2: integer;

begin

  writeln('Введите первое слово');

  readln(s1);

  writeln('Введите второе слово');

  readln(s2);

  writeln('Объединение слов:  ', s1 + s2);

  writeln('Длина первого слова:  ', length(s1));

  writeln('Длина второго слова:  ', length(s2));

  for i:= 1 to length(s1) do

    if s1[i] = 'а' then inc(n1);

  for i:= 1 to length(s2) do 

    if s2[i] = 'a' then inc(n2);

  writeln('В первом слове ', n1, ' букв "а" ');

  writeln('Во втором слове ', n2, ' букв "а" ');

  writeln('Первые 5 букв первого слова:  ', copy(s1, 1, 5));

  writeln('Первые 5 букв второго слова:  ', copy(s2, 1, 5));

  delete(s1, length(s1) - 4, 5);

  delete(s2, length(s2) - 4, 5);

  writeln('Результат удаления последних 5 букв первого слова:  ', s1);

  writeln('Результат удаления последних 5 букв второго слова:  ', s2);

end.