Паскаль Составить программу проверки, есть ли в тексте буква введенная пользователем. Выдавать true (если найдено) или false (если не найдено сделать код

Общий вес груза = 7*10+7*5 = 105 т, следовательно, на каждой палубе должно быть по 105/3 = 35 т.
35 т. можно получить следующими
10 т  5 т
3       1
2       3
5       1
0       7
Комбинируя эти варианты, получим следующие варианты распределения контейнеров:
1:
10 т   5 т   0 т
3       1      3   (всего 7, вес 35 т)
3       1      3   (всего 7, вес 35 т)
1       5      1   (всего 7, вес 35 т)

7       7      7

2:
10 т   5 т   0 т
3       1      3   (всего 7, вес 35 т)
2       3      2   (всего 7, вес 35 т)
2       3      2   (всего 7, вес 35 т)

7       7      7

function ReadInteger(prompt: string): integer;
        Выводит приглашение к вводу и возвращает значение типа integer, введенное с клавиатуры

function ArrRandom(n: integer := 10; a: integer := 0; b: integer := 100): array of integer;
        Возвращает массив размера n, заполненный случайными целыми значениями

function Println(delim: string := ' '): sequence of T;
      Выводит последовательность на экран, используя delim в качестве разделителя, и переходит на новую строку.

procedure Assert(cond: boolean; sourceFile: string := ''; line: integer := 0);
        Выводит в специальном окне стек вызовов подпрограмм если условие не выполняется