Помогите срочно нужно написать программу в Паскале по ветвлениям)

Ввести последовательно возраст Антона,Бориса и Виктора. Определить,кто из них старше. Пример:
Возраст Антона: 15
Возраст Бориса: 17
Возраст Виктора: 16
Ответ: Борис старше всех.

Пример:
Возраст Антона: 17
Возраст Бориса: 17
Возраст Виктора: 16
Ответ: Антон и Борис старше Виктора.

Заранее спасибо большое)

//PascalABC.NET//Версия 3.3, сборка 1634 (14.02.2018)begin  var a := ReadInteger('Возраст Антона:');  var b := ReadInteger('Возраст Бориса:');  var v := ReadInteger('Возраст Виктора:');  if (a > b) and (a > v) then begin Println('Антон старше всех');exit; end;  if (b > a) and (b > v) then begin Println('Борис старше всех');exit; end;  if (v > a) and (v > b) then begin Println('Виктор старше всех');exit; end;  if (a > v) and (a = b) then begin Println('Антон и Борис старше Виктора.');exit; end;  if (a > b) and (a = v) then begin Println('Антон и Виктор старше Бориса.');exit; end;  if (v > a) and (v = b) then begin Println('Виктор и Борис старше Антона.');exit; end;  if (a = b) and (b = v) then begin Println('Виктор, Борис и Антон одного возраста.');exit; end;end.