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.

// PascalABC.NET 3.2, сборка 1404 от 16.03.2017
// Внимание! Если программа не работает, обновите версию!

begin
  // предполагается, что все три роста разные
  var a,b,c,max,nmax,min,nmin:integer;
  Write('Введите рост трех человек: '); Read(a,b,c);
  if a>b then begin // a - не min, b не max
    if c>a then begin max:=c; nmax:=3; min:=b; nmin:=2 end
    else begin
      max:=a; nmax:=1;
      if b      else begin min:=c; nmin:=3 end
      end
    end
  else begin // b не min, a не max
    if c>b then begin max:=c; nmax:=3; min:=a; nmin:=1 end
    else begin
      max:=b; nmax:=2;
      if a      else begin min:=c; nmin:=3 end
      end
    end;
  Writeln('Максимальный рост ',max,' у человека номер ',nmax);
  Writeln('Минимальный рост ',min,' у человека номер ',nmin)
end.

Пример
Введите рост трех человек: 169 172 170
Максимальный рост 172 у человека номер 2
Минимальный рост 169 у человека номер 1