Распечатать слова из первой строки, если они имеются во второй, найти сумму цифровых слов - Pascal ABC

Формулировка задачи:

Сначала набираем текст в строку а затем ввести строку В. Распечатать слова из первой строки, если они имеются во второй, найти сумму цифровых слов.

PROGRAM Prim3;
Var
T1,T:string;
 
BEGIN
Writeln ('ГўГўГҐГ¤ГЁГІГҐ ГІГҐГЄГ±ГІ');
Readln (T);
Writeln ('ГўГўГҐГ¤ГЁГІГҐ ГІГҐГЄГ±ГІ 2');
readln (T1);

осилил только это, помогите

Решение задачи: «Распечатать слова из первой строки, если они имеются во второй, найти сумму цифровых слов»

Листинг программы

Var T1,T2,buf,buf1:string;
i,j,k:integer;
 
BEGIN
  Writeln ('введите текст');
  Readln (T1);
  Writeln ('введите текст 2');
  readln (T2);
  i:=1;
  while (i<=length(T1)) do
  begin
    j:=1;
    while ((i<=length(T1))and(T1[i]<>' ')) do
    begin
      Insert (T1[i], buf, j);
      j:=j+1;
      i:=i+1;
    end; 
      
    j:=1;
    while (j<=length(T2)) do
    begin
      k:=1;
      while ((j<=length(T2))and(T2[j]<>' ')) do
      begin
        Insert (T2[j], buf1, k);
        j:=j+1;
        k:=k+1;
      end;       
      if (buf1=buf) then writeln(buf);
      Delete (buf1, 1, length(buf1));
      j:=j+1;
    end;
    Delete (buf, 1, length(buf));
    i:=i+1;
  end;
END.

Объяснение кода листинга программы

В начале объявляются переменные T1, T2, buf, buf1 типа string, а также переменные i, j, k типа integer.
Пользователю предлагается ввести текст, который сохраняется в переменной T1.
Затем пользователю предлагается ввести еще один текст, который сохраняется в переменной T2.
Переменная i инициализируется значением 1, и в цикле while (i<=length(T1)) выполняется следующая последовательность действий:
- Переменная j инициализируется значением 1.
- В цикле while ((i<=length(T1))and(T1[i]<>' ')) выполняется следующая последовательность действий:
  - Строка T1[i] вставляется в буфер buf, начиная с позиции j.
  - Значение j увеличивается на 1.
  - Значение i увеличивается на 1.
- После окончания внутреннего цикла while j сравнивается с длиной буфера buf. Если они равны, то буфер buf выводится на экран.
- Затем буфер buf очищается, и значение i увеличивается на 1.
Аналогично обрабатывается текст из переменной T2.
Код завершается без использования операторов вывода.