Pascal/Turbo Pascal - imprimir la posicion y el valor máximo de un vector

Uses CRT;

const

  TOPE = 20;

Type

  TipoVector = Array [1..TOPE] of integer;

VAR

  I, MAYOR, POSI : INTEGER;

  VECTOR : TipoVector;

begin

   Randomize;

   {Llenamos el vector}

   For i:=1 to tope do

     VECTOR[I]:=random(100)+1;

   {Ahora buscamos el mayor}

   MAYOR := VECTOR[1];

   POSI:=1;

   For i:=2 to TOPE do

        if VECTOR[I]>MAYOR then

           begin

             MAYOR:=VECTOR[I];

             POSI:=I;

          end;

  Writeln('El mayor elemento del vector es: ',mayor,' en la posici¢n ',posi);

  readln;

END.