Дан массив целых чисел состоящий из 10 элементов. найти сумму трех минимальных элементов этого массива метот пузыря

var a:array [1..10] of Integer;   i,temp:Integer;   f:Boolean;begin  Randomize;  for i:=1 to 10 do   a[i]:=Random(100);  for i:=1 to 10 do   write(a[i]:3);   Writeln;  repeat   f:=False;   for i:=1 to 9 do   begin     if a[i]>a[i+1] then      begin         f:=True;         temp:=a[i];         a[i]:=a[i+1];         a[i+1]:=temp;      end;   end;  until not f;  for i:=1 to 10 do   write(a[i]:3);  temp:=0;  for i:=1 to 3 do   temp:=temp+a[i];   Writeln;   Writeln(temp);  Readln;end.