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

[Ann2807]

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

Program A;
var M1,M2,M3,Z1,Z2,Z3:real;
R1, R2, R3,max:real;

begin
Writeln('Введите количество денег, полученных на 1-ом, 2-ом, 3-м маршрутах');
Readln(M1,M2,M3);
Writeln('Введите цену затрат на 1-ом,2-ом, 3-м маршрутах ');
Readln(Z1,Z2,Z3);
R1:=M1-Z1;
R2:=M2-Z2;
R3:=M3-Z3;
if R1>R2 then
max:=R1
else
max:=R2;
R2:=max;

if 
 R3>max
 then
 max:=R3;
 R3:=max;
 R1:=1;
 R2:=2;
 R3:=3;
 writeln('Самый рентабельный - ',max, ' маршрут')
end.

[kventin_zhuk]

Program A;
var
  aMass : array [1..3] of real;
  aMass2 : array [1..3]  of real;
  aMassSub : array [1..3] of real;
  i ,iNum: integer;
  fMax : real;
  
begin
for i := 1 to 3 do
begin
 Writeln('Введите прибыль на ',i,'-ом маршруте');
 readln(aMass[i])
end;
for i := 1 to 3 do
begin
 Writeln('Введите затраты на ',i,'-ом маршруте');
 readln(aMass2[i])
end;
for i := 1 to 3 do
aMassSub[i] := aMass[i] - aMass2[i];

fMax := aMassSub[1];
iNum := 1;
if fMax<aMassSub[2] then
begin
  fMax := aMassSub[2];
  iNum := 2;
end;
if fMax<aMassSub[3] then
begin
  fMax := aMassSub[3];
  iNum := 3;
end;
 writeln('Самый рентабельный - ',fMax, ' маршрут номер ',iNum);
end.

[Ann2807]

Спасибо___)

[kventin_zhuk]

Сообщение от Ann2807

Спасибо___)

Всё понятно? а то пишу уже по привычке...

[Ann2807]

массивы не очень понятны, но думаю принцип пойму