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

• Program Brainly;
• 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.

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