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

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.

...
if n>3 then begin
  for i:=1 to 3 do mins[i]:=c[i];
  for i:=2 to n do
    if c[i]<=mins[3] then begin
      k:=3;
      for j:=2 downto 1 do if c[i]<=mins[j] then k:=j;
      for j:=3 downto k+1 do mins[j]:=mins[j-1];
      mins[k]:=c[i];
    end;
  write('Минимальные элементы: ');
  for i:=1 to 3 do write(mins[i], ' ');
end else   for i:=1 to n do write(c[i], ' ');
...

for i:=1 to 3 do mins[i]:=maxint;
  for i:=1 to n do