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

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

b) 9 лет

2020=4

2011=4 

var a: array[1..100] of integer;

begin

  randomize; {чтоб рандом был разный для каждого запуска програмы}

  for i: = 1 to 100 do

      if i mod 2 =0 then a[i] : = 2*random(100)+1; {формула нечетного числа}

      else a[i]: =2*random(100);

end.

 

есличто непонятно - пиши в сообщения, растолкую