Помогите с паскалем, пожалуйста.

program N88505353;
const
  imin: byte = 0;
var
  a: array of double;
  i: byte;
  temp: double;
begin
  randomize;
  setlength(a, random(91) + 10);
  writeln('Дана последовательность длиной ', length(a),':');
  for i := low(a) to high(a) do
  begin
    a[і] := random * 199.98 - 99.99;
    write(a[і]:8:2)
  end;
  for i := low(a) + 1 to high(a) do
    if a[і] < a[imin] then
      imin := i;
  writeln(#13#10'Наименьший элемент: a[', imin + 1, '] = ', a[imin]:0:2);
  temp := a[low(a)];
  a[low(a)] := a[imin];
  a[imin] := temp;
  writeln(#13#10'Первый и наименьший элементы поменялись местами: ');
  for i := low(a) to high(a) do
    write(a[і]:8:2);
  write(#13#10#10'Для завершения работы нажмите <Еnter>...');
  readln;
  finalize(a)
end.

как понять наименьший элемент? самый первый, или элемент в котором меньше всего букв?

сначала преобразовать все в строку, потом находишь позицию этого наименьшего элемента (его нужно найти до преобразование в строку и присвоить его значение переменной допустим m), далее с помощью операторов строк меняешь их местами (копируешь первый и помещаешь его на позицию меньшего, тогда меньший будет m+1. и копируешь его на 1 место. потом удаляешь второй символ и m+1. тогда получится что ты поменял их местами.