Сумма 2-х самых маленьких элементов одномерного массива

var
  mas: array [1..10] of Integer;
  i: Byte;
  a1, a2: Integer;
begin
Randomize();
Writeln('Исходный массив: ');
for i := 1 to 10 do
  begin
    mas[i] := Random(50) - 15;
    Write(mas[i], ' ');
  end;
a1 := mas[1];
for i := 1 to 10 do
  if mas[i] < a1 then
    a1 := mas[i];
a2 := mas[1];
for i := 1 to 10 do
  if (mas[i] < a2) and (mas[i] <> a1) then
    a2 := mas[i];
Writeln;
Writeln;
Writeln('Сумма 2-х минимальных элементов = ', a1 + a2);
end.

Program P;
var
  mas: array [1..100] of Integer;
  i: Byte;
  n,a1, a2: Integer;
begin
Writeln('Введите n');
readln(n);
for i := 1 to n do
  begin
    Writeln('Введите mas[',i,']');
    readln(mas[i]);
  end;
a1 := mas[1];
for i := 1 to n do
  if mas[i] < a1 then
    a1 := mas[i];
a2 := mas[1];
for i := 1 to n do
  if (mas[i] < a2) and (mas[i] <> a1) then
    a2 := mas[i];
Writeln;
Writeln;
Writeln('сумма 2-х минимальных = ', a1 + a2);
end.

uses crt;
const nmax=100;
var a:array[1..nmax] of integer;
    n,i,j,imn1,imn2:byte;
begin
clrscr;
randomize;
repeat
write('Размер массива от 2 до ',nmax,' n=');
readln(n);
until n in [2..nmax];
writeln('Массив:');
for i:=1 to n do
 begin
  a[i]:=random(50);
  write(a[i]:4);
 end;
writeln;
writeln;
if a[1]<a[2] then
 begin
  imn1:=1;
  imn2:=2;
 end
else
 begin
  imn1:=2;
  imn2:=1;
 end;
for i:=3 to n do
 begin
  if a[i]<a[imn1] then
   begin
    imn2:=imn1;
    imn1:=i;
   end
  else if a[i]<a[imn2] then imn2:=i;
 end;
writeln('Первые 2 наименьших a[',imn1,']=',a[imn1],'  a[',imn2,']=',a[imn2]);
writeln('Их сумма=',a[imn1]+a[imn2]);
readln
end.