Исправить программу, чтобы она выводила слова, которые есть в первой и второй строке

program lab6 (input, output);
const
m=70;
n=70;
var
 st: array [1..n] of char;
 st1: array [1..m] of char;
 st2: array [1..n] of char;
  i, j, k: integer;
  l: boolean;
begin
    writeln('Enter sentence 1');
    read(st[n]);    
    writeln('Enter sentence 2');
    read(st1[m]);
    j:=1;
    k:=1;
    repeat
    k:=k+1;    
    j:=j+1;
    until eoln;
 
        i:=0;
        for k:=1 to n do begin
        j := 1;
         while (j<=m) and (st1[j]<>st[k]) do 
         Inc(j);
        if j=m  then 
         begin
         i:=i+1;
         st2[i]:=st[k];
         end;
        end;
 
  WriteLn('Words that contain sentence 1 and sentence 2:');
  for j:=1 to i do
  Writeln(st2[j], ' ');
  if j=m then
  l:=false
  else
  l:=true;
  writeln('L = ', l);      
  Writeln;
  readln;
end.

program lab6 (input, output);
 
{const
 St1: string = 'hello world. It converts plain text into encoded text.';
 St2: string = 'my world is good hello'; }
 
var
  S: string;
begin
  Writeln('First string: ');
  Readln(st1);
  Writeln('Second string: ');
  Readln(st2);
 
  Writeln('Double words:');
  st1:= st1+' ';
  while st1 <> '' do
    begin
      if pos(copy(st1,1,pos(' ',st1)-1),st2)<>0 then
         writeln(copy(st1,1,pos(' ',st1)-1));
      delete(st1,1,pos(' ',st1));
    end;
  readln;
end.