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

PROGRAM Prim3;
Var
T1,T:string;
 
BEGIN
Writeln ('ââåäèòå òåêñò');
Readln (T);
Writeln ('ââåäèòå òåêñò 2');
readln (T1);

Var T1,T2,buf:string;
i,j: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;   
    if (Pos(buf,T2)<>0) then writeln(buf);
    Delete (buf, 1, length(buf));
    i:=i+1;
  end;
END.

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.