Помогите пожалуйстасделайте так чтоб если длинна фамилий схожа чтоб выводилась не

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

end.