Дан массив из 8 целочисленных частей. Элементы вводятся с клавиатуры (все

program zz1;
var mas:array[1..8] of integer;
i,min,k:integer;
begin
for i:=1 to 8 do
read(mas[i]); //вводим начальные числа в массив с клавиатуры
min:=1000000; //задаем изначальное значение малого элемента (это обязано быть очень возможное число)
for i:=1 to 8 do
if mas[i]lt;min then begin min:=mas[i];k:=i;end; //проверяем, если число из массива меньше чем малое, то в малое записываем это число
write(малый элемент - ,min, его номер - ,k); //выводим ответ
end.