Pascal/Turbo Pascal - Mayor de 10 números ingresados

Uses CRT;

var

  T : Array [1..10] of integer;

  I,Mayor : Integer;

begin

  mAYOR:=0;

  Writeln('Introduzca 10 n£meros: ');

  For i:=1 to 10 do

    begin

      Readln(T[I]);

      IF T[I]>MAYOR THEN

        MAYOR:=T[I]

    end

  Writeln('El mayor es ',mayor);

  readln;

end.