Ввести массив S(n) из строк, где n<=10. Определить номер первого и последнего по алфавиту элемента этого массива - Pascal(Паскаль)

var
a:array[1..10] of string;
i,n,j,nmin,nmax:integer;
m,min,max:string;
begin
readln(n);
for i:=1 to n do begin
writeln('a(',i,')=');
readln(a[i]);
end;
min:=a[1];
nmin:=1;
max:=a[1];
nmax:=1;
for i:=1 to n do
begin
if a[i]<min then
begin
min:=a[i];
nmin:=i;
end;
if a[i]>max then
begin
max:=a[i];
nmax:=i;
end;
end;
writeln ('min=',min,' nmin=',nmin,'  max=',max,' nmax=',nmax);
readln;
end.