Найдите за один проход по массиву три его различных элемента,которые меньше всех остальных(три минимума)

const n=10;
type myarray=array[1..n] of integer;
var a:myarray;
m,k:integer;
function minimum (m:myarray):integer;
var i,min:integer;
begin
min:=32768;
for i:=1 to n do
if m[i]<min then
begin
min:=m[i];
minimum:=min;
end;
begin
procedure wri;
var i:integer;
begin
i:=k to n-1 do
m[i]:=m[i+1];
m[n]:=0;
end;
begin
randomize
for i:=1 to n do
a[i]:=random(100);
for i:=1 to n do
write(a[i]:5);
k:=0;
for i:= n downto 1do
m:=minimum(a);
if a[i]=m then
wri(i,a);
ink(k)
if k>3 exit;
end;
begin
write(a[i]:5);
end.

uses
  Crt;
 
var
  M: array [1..1000] of integer;
  min1, min2, min3, A, B: integer;
  N, i: byte;
 
begin
  clrscr;
  A := 100; B := 200; {Будем искать три минимума в диапазоне [A, B]}
  repeat
    write('N = '); 
    readln(N);
  until N > 2;
  min1 := B; min2 := B; min3 := B; {Начальные значения минимумов}
  randomize;
  for i := 1 to N do begin
    m[i] := random(B - A + 1) + A;
    write(' ', m[i]);
    if min1 > m[i] then {Проверяем min1 - наименьший из минимумов}
    begin {Уменьшаем min3, min2, min1:}
      min3 := min2; 
      min2 := min1; 
      min1 := m[i]
    end
      else
    if min2 > m[i] then {Проверяем min2 - средний из минимумов}
    begin {Уменьшаем min3, min2:}
      min3 := min2;
      min2 := m[i]
    end
      else {Уменьшаем min3:}
    if min3 > m[i] then min3 := m[i] {Проверяем min3 - наибольший из минимумов}
  end;
  writeln;
  writeln('Три минимума: ', min1, ', ', min2, ', ', min3);
  readln
end.

const
  n=5;
var
  i,m1,m2,m3:integer;
  mas: array [1..n] of integer;
begin
  for i:=1 to n do
    read(mas[i]);
  m1:=mas[1];
  m2:=mas[2];
  m3:=mas[3];
  for i:=2 to n do
    if mas[i]<m1 then
      begin
        m3:=m2;
        m2:=m1;
        m1:=mas[i]
      end
    else if mas[i]<m2 then
      begin
        m3:=m2;
        m2:=mas[i]
      end
    else if mas[i]<m3 then
      m3:=mas[i];
  write(m1,' ',m2,' ',m3)    
end.