Pascal/Turbo Pascal - if anidado pascal ayuda

tengo un problema, alguien podria corregir este ejercicio queme pide hallar en valor mayor y la posicion.
Lo hice de esta manera en pascal

declaraciones
begin

tengo un problema, alguien podria corregir este ejercicio queme pide hallar el valor mayor y la posicion.
Lo hice de esta manera en pascal, tengo dudas en la estructura del if, como que hay muchos end y no estoy segura de los ;

declaraciones
begin
for i := 1 to n do
begin
readln( A [ I ] );
IF I:= 1 THEN
begin
pos := i;
may:= A [ I ]
end
else
begin
if ( A [ I ] ) > may then
begin
pos := i;
may:= A [ I ]
end;
end;
end;
write(pos, may);
end.

{Espero esto te valga}

program mayor_pos;
uses
crt;
var
pos, may : integer;
a : array[1..10] of integer;
loc, t, i : integer;

begin
clrscr;
writeln('Entre los 10 balores enteros');
for i := 1 to 10 do
begin
{primero entramos los datos}
read(a[i]);
end;
loc := 0;
{buscamos el mayor dato}
for i := 1 to 10 do
begin
for t := 1 to 10 do
begin
if a[i] < a[t] then
begin
if a[t] > a[loc] then
loc := t;
end;
end;
end;
writeln('posicion = ',loc,' valor = ',a[loc]);
writeln;
writeln('Pulsa [Una Tecla]');
repeat until keypressed;
end.