QUAL É Nº MAIS ALTO

O CODIGO

Program quem_e_mais_alto ;
var
w:array[1..15] of integer;
poss,maior,i:integer;
Begin
writeln('intruduza 15 alturas.');
for i:= 1 to 15 do
read(w[i]);
maior:=w[1];
poss:=1;
for i:= 2 to 15 do
begin
if w[i] > maior then
begin
maior:=w[i];
poss:=i ;
end;
end;
writeln('o maior é o numero ',poss,' que mede ',maior);
End.

O RESULTADO FINAL