найти самое длинное общее слово двух заданных предложений паскаль

[BlackwHite11]

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);
writeln('Самое длнное общее слово - "',MaxWord (a1,a2,r1,r2),'"');
end.

что в этой программе не так?

[XE5]

procedure StrToArr(s: string; var z:mas; var r: byte);

А StringList-а в паскале нет? Было бы проще.

[Stilet]

что в этой программе не так?

Отладкой проходил? Массив вообще верно составляется?

[Serge_Bliznykov]

программку проверил. код годный и рабочий!

единственное, в TurboPascal возникли проблемы с компиляцией массивов (решил её уменьшением допустимых длин слов) и ошибка выполнения - в MS DOS стека не хватало под оба массива (решил через const ):

type mas=array [1..255] of string[80];


function MaxWord (const x,y:mas; rr1,rr2: byte):string;
...