Вывести номера 3 наименьших элементов введенного одномерного массива

program Lab6;
uses crt;
const
     n=38;
Type
vector=array[0..38] of byte;
var
   a:vector;
   x,i,j:integer;
begin
     writeln('Vvod 38 znacheniy');
     for i:=1 to n do
     begin
         write('element[',i,']=');
         readln(a[i]);
     end;
     for j:=n-1 downto 1 do
         for i:=1 to j do
             if a[i]<a[i+1] then begin
                x:=a[i];
                a[i]:=a[i+1];
                a[i+1]:=x;
                end;
     clrscr;
     write(a[n-2],' ',a[n-1],' ',a[n]);
     readln;
 
end.

for i := 1 to 3 do
begin
    min := 1;
    for j := 2 to n-i+1 do
        if a[j] < a[min] then
            min := j;
    write('min ',i,' = ', min);
    a[n-i+1] := a[n-i+1] + a[min];
    a[min] := a[n-i+1] - a[min];
    a[n-i+1] := a[n-i+1] - a[min];
end;

TElement = record
  inf: Integer; // значение элемента
  k: Integer; // номер элемента
end;

const
  maxSize=100;
type
  Tarr=array[1..maxSize] of integer;
var
  a:Tarr;
  i,n,tmp,imin1,imin2,imin3:integer;
begin
  repeat
    write('Размер массива, не менее 3 и не более ',maxSize,'=');
    readln(n);
  until (n>=3) and (n<=maxSize);
  writeln('Введите элементы массива');
  for i:=1 to n do
    begin
      write('[',i,']=');
      readln(a[i]);
    end;
  writeln;
  writeln('Исходный массив');
  for i:=1 to n do
    write(a[i]:4);
  writeln;
  //поиск
  imin1:=1;
  imin2:=2;
  if a[imin1]>a[imin2] then
    begin
      tmp:=imin1;
      imin1:=imin2;
      imin2:=tmp
    end;
  imin3:=3;
  if a[imin1]>a[imin3] then
    begin
      tmp:=imin1;
      imin1:=imin3;
      imin3:=imin2;
      imin2:=tmp;
    end
  else if a[imin2]>a[imin3] then
    begin
      tmp:=imin3;
      imin3:=imin2;
      imin2:=tmp;
    end;
  for i:=4 to n do
    if a[i]<a[imin1] then
      begin
        imin3:=imin2;
        imin2:=imin1;
        imin1:=i;
      end
    else if a[i]<a[imin2] then
      begin
        imin3:=imin2;
        imin2:=i;
      end
    else if a[i]<a[imin3] then
      imin3:=i;
  writeln('Номера наименьших=[',imin1,'] [',imin2,'] [',imin3,']');
  readln;
end.

var
mas:array[1..20] of integer;
i,j,n,min,m,k:integer;
BEGIN
  writeln('Ââåäèòå ðàçìåðíîñòü ìàññèâà(äî 20).');
  readln(n);
  writeln('Ìàññèâ:');
  for i:=1 to n do
    begin
    mas[i]:=-10+random(21);
    write(mas[i]:4);
    end;
  writeln;
  m:=1;
  for i:=1 to 3 do
    begin
    min:=m;
    for j:=m to n do
      if mas[j]<mas[min] then
        min:=j;
    k:=mas[min];
    mas[min]:=mas[m];
    mas[m]:=k;
    inc(m);
    end;
  writeln('Ìèíèìàëüíûå ýëåìåíòû ìàññèâà:');
  for i:=1 to 3 do
    write(mas[i]:4);
END.

uses crt;
var a:array[1..300] of integer;
i,min1,min2,min3,k:integer;
begin
 randomize;
 for i:=1 to 300 do
  begin
   a[i]:=random(10000);
  end;
 min1:=a[1];
 min2:=a[1];
 min3:=a[1];
 writeln('Исходный массив:');
 for i:=1 to 300 do
  begin
   write(a[i],' ');
   if i mod 10=0 then writeln;
  end;
 for i:=1 to 300 do
  begin
   if (a[i]<min1) and (a[i]<>min2) and (a[i]<>min3) then
    begin
    min1:=a[i];
    end;
   if (a[i]<min2) and (a[i]<>min1) then
   begin
   min2:=a[i];
   end;
   if (a[i]<min3) and (a[i]<>min2) and (a[i]<>min1) then
   begin
   min3:=a[i];
   end;
  end;
 writeln;
 writeln('min1=',min1,' ','min2=',min2,' ','min3=',min3);
end.