Вычислить сумму максимального и минимального элементов в массиве

program second; uses crt;
 var
mn,mas: set of byte;
i,n,mos1,mos2,x,a:byte;
BEGIN
mn:=[];
Writeln('имете последовательность чисел? Сколько их?');
readln(n);
for i:=1 to n do  begin
writeln('введите ', i , ' - ый элемент последовательности');
readln(x); if x in [1..6] then include(mn,x);   end;
writeln('введите число "а" = ');
readln(a);
mas:=[];
for i:=1 to 20 do
begin
 writeln('введите ', i , ' - ый элемент вектора');
readln(x);   include(mas,x); end;
mos1:=0; mos2:=0;
for i:=1 to 255 do
begin if i in mn then inc(mos1);
if i in mas then inc(mos2); end;
clrscr;
if mos1>mos2 then writeln('мощность множества больше  мощности вектора')
else if mos1=mos2 then writeln('мощности равны') else
 writeln('мощность вектора больше мощности множества');
END.

program second; uses crt;
 var
mn,mas: set of byte;
i,n,mos1,mos2,x,a:byte;
BEGIN
mn:=[];
Writeln('имете последовательность чисел? Сколько их?');
readln(n);
for i:=1 to n do  begin
writeln('введите ', i , ' - ый элемент последовательности');
readln(x); if x in [1..6] then include(mn,x);   end;
writeln('введите число "а" = ');
readln(a);
mas:=[];
for i:=1 to 10 do
begin
 writeln('введите ', i , ' - ый элемент вектора');
readln(x);   include(mas,x); end;
mos1:=0; mos2:=0;
for i:=1 to 255 do
begin if i in mn then inc(mos1);
if i in mas then inc(mos2); end;
clrscr;
if mos1>mos2 then writeln('мощность множества больше  мощности вектора')
else if mos1=mos2 then writeln('мощности равны') else
 writeln('мощность вектора больше мощности множества');
END.

uses crt;
var a:array[1..10]of integer;i,m,n:integer;
begin
m:=100;
for i:=1 to 10 do
begin
clrscr;
writeln('вводите массив:');
readln(a[i]);
if a[i]<m then m:=a[i];
if a[i]>n then n:=a[i];
end;
writeln('максимальное ',n,' минимальное ',m);
m:=m+n;
writeln('сумма ',m);
end.