Дан одномерный массив из 10 элементов. Отыскать его минимальный элемент и

var
a : array[1..10] of integer; // творим массив
i,k: integer; // творим целочисленные переменные
begin
  i:= 1; // задаём изначальное значение
  k:= 32767;
  while ilt;= 10 do // Поочерёдно проходимся по всем элементам цикла
  begin
    readln(a[i]); // Читаем с консоли значение элемента 
    if a[i] lt; k then // И сравниваем с нашей переменной k 
      k:= a[i]; // если элемент меньше k, то k присваивает его значение 
    i:= i+1;  // увеличиваем счётчик
  end;
println(k); // Выводим значение наименьшего элемента массива

end.