Как определить ? взаимодополняющие или взаимозаменяющие ?

Program number3; var str: string; i: integer; shortest, longest, current: integer; begin readln(str); shortest : = 255; longest : = 0; current : = 0; for i: =1 to length(str) do begin if (str[i] < > ' ') then current : = current + 1 else begin if current > longest then longest : = current; current : = 0; end; end; if current > longest then longest : = current; writeln(longest); readln; end.

зимы, мороза снега дерево куст льда сковывать сосны пух шарфа лёг ветви сугробы медведя

толстый лед сковал воды, реки.

главный город - иерусалим