Вывести два самых минимальных элемента массива

var
  a: array[1..12] of integer;
  i, j, buf: integer;
  fTp, tTp: integer;
 
begin
  randomize;
  for i := 1 to 12 do a[i] := random(10) - 4;
  writeln('Исходный массив: ');
  for i := 1 to 12 do write(a[i], ' ');
  writeln;
  for i := 1 to 12 do 
    if a[i] > 0 then begin
      fTp := i; 
      break; 
    end;
  for i := 12 downto 1 do
    if a[i] < 0 then begin
      tTp := i;
      break;
    end;
  buf := a[fTp];
  a[fTp] := a[tTp];
  a[tTp] := buf;
  writeln('Преобразованный массив: ');
  for i := 1 to 12 do write(a[i], ' ');
  writeln;
end.

const
  a: array[1..8] of integer = (1, 3, 2, 4, 5, 6, 7, 8);
 
var
  i: integer;
  fmin, tmin: integer;
  nmin: integer;
  buf: integer;
 
begin
  fmin := a[1];
  nmin := 1;
  for i := 2 to 8 do
    if a[i] < fmin then begin
      fmin := a[i];
      nmin := i;
    end;
  if nmin = 1 then begin
    tmin := a[2];
    for i := 3 to 8 do 
      if a[i] < tmin then tmin := a[i];
  end else begin
    tmin := a[1];
    for i := 2 to 8 do
      if (a[i] < tmin) and (a[i] <> fmin) then tmin := a[i];
  end;
  writeln(fmin, ' ', tmin);
end.