Строки. Для каждого слова первого предложения определить, входит ли оно во второе

uses crt;
 
var s,s1,s2,s3:string;
i,j,k:integer;
 
begin
   Write('1.строка: ');readln(s);
   Write('2.строка: ');readln(s1);
   s:=s+' '; s1:=s1+' ';
   writeln;
   For i:=1 to length(s) do
   if s[i]<>' ' then s2:=s2+s[i] else
        begin
        write(s2,' - ');
        k:=0;
        For j:=1 to length(s1) do
        if s1[j]<>' ' then s3:=s3+s1[j] else
          begin
          if s3=s2 then inc(k);
          s3:='';
          end;
        if k=0 then writeln('не входит')
           else writeln('входит');
        s2:='';
        end;
readln;
end.

program y;
var            st1,st2:string;
                ms1,ms2:array[1 .. 255] of string;
                k1,k2,i1,i2,ns1,ns2,l1,l2,d:integer;
begin    readln(st1,st2);
k1:=0;
k2:=0;
st1:=' '+ st1;
st2:= ' ' + st2;
l1 :=length(st1);
l2:=length(st2);
for i1:=1 to l1 - 1 do begin
if (st1[i1]=' ')and (st1[i1+1] <> ' ' ) then ns1:=i1+1;
if (st1[i1] <> ' ' )and ((st1[i1+1]= ' ') or (st1[i1+1] =' .')) then begin
                         k1:=k1+1;
                         ms1[k1]:=copy(st1,ns1,i1-ns1+1);end;end;
for i2:=1 to l2 - 1 do begin
if (st2[i2]=' ')and (st2[i2+1] <> ' ' ) then ns2:=i2+1;
if (st2[i2] <> ' ' )and ((st2[i2+1]= ' ') or (st2[i2+1] =' .')) then begin
                         k2:=k2+1;
                         ms2[k2]:=copy(st2,ns2,i2-ns2+1);end;end;
for i1:=1 to k1 do begin
d:=0;
for i2:=1 to k2 do
if ms1[i1]=ms2[i2] then begin d:=d+1;
if d=1 then ms2[i2]:= ' ';end;
if d<>0 then  writeln (ms1[i1], ' âõîäèò') else
              writeln (ms1[i1], ' íå âõîäèò');
              end;
end.