Получить из слова "" слово "тематика" pascalabc

Pascal abc из слова "вертикаль" путем вырезок и склеек его букв получить слова "тир" и "ветка" ввести один из символов "y" или "n". при вводе "y" вывести на экран слово "да", а при вводе "n" слово "нет" pascal abc  даны строки а="вариант",b= "высоко", с = "макароны". получить слово "соковарка" pascal abc    pascal abc вывести текст файла, заменив цифры от 0 до 9 на слова "ноль", "один""девять", начиная каждое предложение с новой строки из слова "яблока" путем вырезок и склеек получить слово "блок" и "ока" pascal abc  pascal abc составить программу, которая бы выводила на экран заданное число и подпись в зависимости от числа "год", "года" или "лет" pascal abc ,составьте программу, которая из слова "программа" составляет слова: "грамм","рога","гора" из слова "апельсин" путем вырезок и склеек его букв получить слово "спаниель" pascal abc 

program xxx;

  s : string;

  a : integer;

begin

    writeln('введите строку символов: '

    readln (s);

    a: = length(s);  

    if a mod 2= 0 then writeln ('четное') else writeln('не четное');

    readln;

end.

program xxx;

var k, d, n : integer;

          pr : boolean;

begin

  writeln('введите число k=');

  readln(k);

  d: =2;

  n: = k div 2;

  pr: =false;

  while (d< =n) and not(pr) do

      if k mod d = o then pr: =true else d: =d+1;

  if pr then writeln (k, '- число не простое') else writeln (k, '- число простое');

    readln

end.