Обработка строк. Распечатать самые длинные слова, общие для двух данных предложений

uses crt;
type mas=array [1..255] of string;
var a1,a2:mas;
    s1,s2: string;
    r1,r2: byte;
 
procedure StrToArr(s: string; var z:mas; var r: byte);
var sl: string;
    i: byte;
begin
r:=0; s:=s+' '; sl:='';
for i:=1 to length(s) do
    if not (s[i] in ['.',',',' ','-',';',':','!','?'])
       then sl:=sl+s[i] else if length(sl)>0 then
           begin
           inc(r);
           z[r]:=sl;
           sl:='';
           end
end;
 
function MaxWord (x,y:mas; rr1,rr2: byte):string;
var i,j: integer;
    smax: string;
begin
smax:='';
for i:=1 to rr1 do
    for j:=1 to rr2 do
        if (x[i]=y[j]) and (length(x[i])>length(smax))
           then  smax:=x[i];
MaxWord:=smax;
end;
 
begin
write('s1=');
readln(s1);
write('s2=');
readln(s2);
StrToArr(s1,a1,r1);
StrToArr(s2,a2,r2);
if MaxWord (a1,a2,r1,r2)='' then writeln('Нет общих слов')
   else writeln('Самое длнное общее слово - "',MaxWord (a1,a2,r1,r2),'"');
readln;
end.