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

Uses Crt;
var
a: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 begin
if a[i]min:=a[i];
pos:=i;
end;
end;
writeln(наименьший элемент ,min);
writeln(позиция  ,pos);
End.

Если ответ по предмету Информатика отсутствует или он оказался неправильным, то попробуй воспользоваться поиском других ответов во всей базе сайта.