В одномерном массиве, состоящем из n вещественных элементов, вычислить: 1) номер минимального элемента массива

program zadacha; var min,n: real; a: array[1..10] of real; i: integer; begin writeln ('Введите элементы массива'); for i:=1 to 10 do begin write ('a[',i,']='); readln (a[i]); end; n:=1; min:=a[i];   for i:=2 to 10 do if min>a[i] then begin min:=a[i];   n:=i; end;  writeln ('Номер минимального элемента массива ', n); end.