Нахождение в 2ух строках одинаковые слова.

program lab_6;
uses crt;
const n=100;
var s1,s2,ss,slov,od_slova:string;
var i,j,k:integer;
var Str1Array,Str2Array:array[1..n] of string;
//----------------------------------------
Procedure Otbor_Slov(var Str1Array,Str2Array:array[1..n] of string);
var i,j,k:integer;
begin
writeln('Одинаковые слова: ');
for i:=1 to n do
begin
for j:=1 to n do
if (Str1Array[i]=Str2Array[j]) then
begin
Str2Array[j]:='';
write(Str1Array[i]);
end;
end;
end;
//----------------------------------------
procedure FillArrays(var Str1Array,Str2Array:array[1..n] of string);
begin
slov:='';
for i:=1 to length(s1) do
if (s1[i]<>' ')and (s1[i]<>'') then
begin
    for j:=1 to length(ss) do
    begin
    if (s1[i]=ss[j])then begin slov:=slov+s1[i];j:=length(ss)end
    else
    slov:=slov+'';
    end;
end
else
begin
Str1Array[i]:=slov;
slov:='';
end;
k:=1;
for i:=1 to n do
if Str1Array[i]<>'' then
begin
Str1Array[k]:= Str1Array[i];
Str1Array[i]:='';
k:=k+1;
end;
//----------------------------------------
slov:='';
for i:=1 to length(s2) do
if (s2[i]<>' ') then
begin
    for j:=1 to length(ss) do
    begin
    if (s2[i]=ss[j])then begin slov:=slov+s2[i];j:=length(ss)end
    else
    slov:=slov+'';
    end;
end
else
begin
Str2Array[i]:=slov;
slov:='';
end;
k:=1;
for i:=1 to n do
if Str2Array[i]<>'' then
begin
Str2Array[k]:= Str2Array[i];
Str2Array[i]:='';
k:=k+1;
end;
end;
//----------------------------------------
begin
clrscr;
ss:='qwertyuioplkjhgfdsazxcvbnmQWERTYUIOPLKJHGFDSAZXCVBNM0123456789';
readln(s1);
readln(s2);
FillArrays(Str1Array,Str2Array);
Otbor_Slov(Str1Array,Str2Array);
end.

uses crt;
 
var s,s1,s2,s3:string;
i,j:integer;
a:set of char;
 
begin
   a:=['A'..'z','А'..'я','0'..'9'];
   Write('1.строка: ');readln(s);
   Write('2.строка: ');readln(s1);
   s:=s+' '; s1:=s1+' ';
   writeln;
   For i:=1 to length(s) do
   if s[i] in a then s2:=s2+s[i] else
        begin
        For j:=1 to length(s1) do
        if s1[j] in a then s3:=s3+s1[j]
          else
          begin
          if s3=s2 then write(s3,', ');
          s3:='';
          end;
        s2:='';
        end;
end.