Написать программу на Паскале: Среди 10 целых положительных и отрицательных чисел:1. Найти максимальное и минимальное значения.2. Среднее арифметическое среди трехзначных, оканчивающихся на 1 и кратных 7.

Program  aliona;
const n=10;
var a :array[1..n] of inreger;
min,max,i:integer;
begin
randomize;
for i :=1 to n do
begin
a[i]:=random(100)+1;
write( ,a[i]);
end;
min:=a[1];
for i:=1 to n do 
if a[i]max:=a[1];
for i :=1 to n do 
if a[i]>a[1] then max:=a[i];
writeln(min=,min,max=,max);
readln;
end,