Организация ветвления паскаль

[Ann2807]

Здравствуйте, помогите, пожалуйста, решить задачу ИМЕННО с помощью ветвления
Задача:
Для определения рентабельности автобусного маршрута вычисляют разницу между сданными деньгами за проезд и затратами на обеспечение маршрута (зарплата + бензин + ремонт). Составьте программу определения самого рентабельного из трех маршрутов в городе.

[Mad_Cat]

type TWay = record
Z,B,Ren,D,R:real; //Zарплата, Bензин,RenTaбельность, Dеньги,Reмонт
end;
Var x:Array[1..3] of TWay;
i:integer;
rr:integer;
begin
for i:=1 to 3 do
with X[i] do begin
read(Z,B,R,D);
Ren:=D-Z-B-R;
end;
rr:=1;
for i:=2 to 3 do
if x[i].Ren>x[rr].Ren then Rr:=i;
writeln(rr,' маршрут');
end.