Найти наименьший элемент и его номер в последовательности, элемент которого вводятся с клавиатуры. Размер массива 10 чисел............8

Uses Crt;vara:array[1..10] of integer;i:integer;min,pos:integer;BeginClrScr; for i:=1 to 10 do begin write('Введите число массива: '); Readln(a[i]); end;min:=a[i];pos:=1;for i:=2 to 10 do beginif a[i]<min then beginmin:=a[i];pos:=i;end;end;writeln('наименьший элемент ',min);writeln('позиция  ',pos);End.