Program mybost; var d,m:Integer;
begin
read(d,m);
if(d>m) and (d=m)
then writeln('Дима старше Маши');
else('Маша старше Димы') and ('Дима и Маша ровесники');
end.
пишет ошибка: встречено else ,а ожидалось оператор, меняю все и не получается​

Program ;Var d,m:Integer;Begin Write('Введите возраст Димы: ');Read (d);Write('Введите возраст Маши: ');Read (m);if (d>m) then Writeln('Вывод: Дима старше Маши.');if (d=m) then Writeln ('Вывод: Дима и Маша ровесники.');if (d<m) then WriteLn('Вывод: Маша старше Димы.');end.

Сделал немного по-другому, но на результат программы это никак не влияет.