В массиве 10 элементов. Определить средне арифметическое чисел положительных и находящихся в промежутке от 10 до 15, удалить из массива минимальный элемент

//прога на Pascal`e
const
n = 10;
var 
a: array of shortint;
i, min, sumcount: shortint;
sum: integer;
begin
randomize;
setLength (a, n);
writeln (Исходный массив:);
for i:=0 to n-1 do
begin
a[i]:=random (101)-50;
write (a[i], ; );
if a[i] in [10..15] then begin
inc (sum, a[i]); inc (sumcount); end;
if a[i]lt;a[min] then min:=i;
end;

if minlt;gt;(n-1) then
begin
a[min]:=a[min]+a[n-1];
a[n-1]:=a[min]-a[n-1];
a[min]:=a[min]-a[n-1];
end;
writeln ();
if sumcountgt;0 then
writeln (CA чисел в промежутке [10..15]: , sum/sumcount)
else writeln (Нет чисел в промежутке [10..15]);
writeln (Удален элемент a[, min+1, ] = , a[n-1], ; измененный массив:);
setlength (a, n-1);
for i:=0 to n-2 do write (a[i], ; );
end.