Quem é maior? Relação entre 5 pessoas e as suas alturas

Ver código Ver imagens

Código

Program quem_e_maior;
 var i,n,a,a_maior,n_maior:integer;
 Begin
 
 a_maior:=100;
 n_maior:=0;
 for i:= 1 to 5 do
  begin
 	writeln('num:');
 	readln(n);
 	writeln('altura:');
 	readln(a);
 	if a>a_maior then
  	begin
  		a_maior:=a;
  		n_maior:=n;
  	end;
  end;	

  writeln('O mais alto e o numero: ',n_maior,' medindo: ',a_maior);
  writeln('O mais baixo e o numero: ',n,' medindo: ', a);  
  
 End.

Imagens