Найти три минимальных элемента массива - Free Pascal

const
  n = 10;
var
  a: array[1..n] of integer;
  mins: array[1..3] of integer;
  i,j,idx: integer;
  first: boolean;
begin
  {ввод массива}
  randomize;
  writeln('Введите массив (', n, ' элементов)');
  for i:=1 to n do begin
    write('A[', i, '] = ');
    {readln(a[i]); {для ввода с клавиатуры}
    a[i]:=random(100);
    writeln(a[i]); {для заполнения рандомом}
  end;
  
  {поиск трех минимальных элементов}
  for j:=1 to 3 do begin
    first:=true;
    for i:=1 to n do
      if first or (a[i]<mins[j]) then begin
        mins[j]:=a[i];
        idx:=i;
        first:=false;
      end;
    a[idx]:=maxint; {это чтобы исключить элемент из рассмотрения}
  end;
  
  {вывод результата}
  write('Минимальные элементы: ');
  for i:=1 to 3 do
    write(mins[i], ' ');
 
end.