Ответ:

var s1,s2: string;

begin

readln(s1);

readln(s2);

if (s1.Length=s2.Length) then

writeln('Длины совпадают') else

writeln('Длины не совпадают');

end.