Помогите пожалуйста
сделайте так чтобы если длинна фамилий одинакова чтобы выводилась не про одинаковую длинну без лишнего
program poc;
var a,b:string;
c,d: integer;
begin
writeln ('Введите первую фамилию');
readln (a);
writeln ('Введите торую фамилию');
readln (b);
c:= length (a);
d:=length(b);
if (c>d) then writeln ('Первая фамилия длинее') else writeln ('Втарая фамилия длинее');
if (c=d)then writeln ('Длинна фамилий оденакова');

end.