Определить, есть ли в данной строке одинаковые слова.

[RoMiRoSSaN]

программа есть. нужно сделать её максимально с подпрограммами. а я с ними не дружу
вот программа


var
s, a, b: string; l, k: real; i, j: integer;

begin
readln(s);
l := length(s);
k := 0;
i := 1;
while (k <> 1) and (i < l) do
begin


while (i <= l) and (s[i] <> ' ') and (s[i]<>'.') do
begin
a := a + s[i];
i := i + 1;
end;


j := i+1;
while (s[i]<>'.')and (k<>1) do begin
i:=i+1;
if i <> l then


while (i <= l) and (s[i] <> ' ') and (s[i]<>'.') do
begin
b := b + s[i];
i := i + 1;
end;


if a = b then begin
k := 1;
write('true')
end;
b:='';
end;
i:=j;
a:='';
end;


if k=0 then
writeln('false');
end.