подскажите,пожалуйста, где здесь ошибка!, Программирование с использованием массивов Опции

[Lexa15]

Подскажите где ошибка и как ее исправить

Условие:Поменять местами минимальный и максимальный элементы массива размера 10..

Program Mas;
Var
M:Array[1..10] of real;
Max, Min, MN:real;
I:integer;
begin
for I:=1 to 10 Do real (M[I]);
Max:=M[1]; K:=1;
Min:=M[1]; N:=1;
for I:=2 To 10 Do;
Begin
If M[1]>Max then
begin
Max:=M[1];
K:=1;
end;
if M[I]<min then
begin
Min:=M[I];
N:=I;
end;
end;
MN:=M[K];
M[K]:=M[N];
M[N]:=MN;
For I:=1 to 10 do writeln(M[I]);
end.

[IUnknown]

for I:=1 to 10 Do
   readln (M[I]);

NMin:=1; NMax:=1;
for I:=2 To 10 Do
Begin
   if M[I]>M[NMax] then Nmax:=I;
   if M[I]<M(NMin] then Nmin:=I;
end;
// ...

Не проще, чем вести еще и переменную Min/Max?