Пожалуйста посчитайте срочно надо. Известен рост 3-х человек определить самого высокого и самого низкого. Блок-схема в фото. я уже пробывала , но у меня ничего не получается . Буду благодарна

program rost;
var R1,R2,R3,max:integer;
begin 
writeln('Введите рост первого человека'); readln(R1); 
writeln('Введите рост второго человека'); readln(R2);
writeln('Введите рост третьего человека'); readln(R3);
max:=R1; 
if R2>max then 
  begin   
   max:=R2;   
   if R3>max then max:=R3 
  end 
else if R3>max then max:=R3;
writeln('Рост самого высого человека=',max);
end.