Помогите пожалуйста
сделайте так чтобы если длинна фамилий одинакова чтобы выводилась не про одинаковую длинну без лишнего
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.

всёравно вводит не так

Скоре всего компилятор считает, что если с не больше d, то оно, либо равно или больше поэтому убери else. Замени его if (d>c) then writeln("Твой текст");

И да сделай, что я написал выше

if(c==d) then writeln("Твой текст");