задача поменять в массиве max элемент с первым, но меняет как то не так.. почему?

[Валюшка]

в массиве из 10 целых чисел найти наибольший элемент и поменять его местами с первым элементом:

Program Five;
Uses Crt;
Var a:array[1..10] of real;
i,n,nmax:integer;
max,x:real;
Begin
clrscr;
n:=10;
for i:=1 to n do
begin 
write('a[',i,']=');
readln(a[i]);
end;
max:=a[i];
nmax:=1;
for i:=2 to n do
if a[i]>max then
begin
max:=a[i];
nmax:=i;
end;
x:=a[i];
a[1]:=a[max];
a[nmax]:=x;
for i:=1 to n do
write('a[',i,']=',a[i]:5:3);
readln;
End.

[Sazary]

2 ошибки:
7-я строчка снизу:

x:=a[i];

а надо:

x:=a[1];

----
и ниже:

a[1]:=a[max];

надо

a[1]:=a[nmax];

[Валюшка]

спасибо большое!