По теме обработка строк в паскале  записать программу с любыми двумя словами.(объединение строк,длина строки,копирование,поиск,удаление)

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.