Дано натуральное число n.вычислить (расписать программу в паскаль)

Задание1
const nx =50;var q, n,sum,sum1,p,i:integer; sr:real;R:Array[1..10] of integer;Beginp:=1;for i:=1 to 10 do beginR[i]:= random(15)-2;sum1:= sum1 +R[i];write(R[i]:3);if i mod 2 =1 then begin sum:= sum +R[i];p:= p +R[i];end;end;writeln;sr:= sum1/10;writeln('Сумма элементов с нечетными индексами = ',sum);writeln('Произведение элементов с нечетными индексами = ',p);writeln('Среднее арифметическое всех элементов массива = ',sr);foreach q in R do beginif q > sr then n:= n + 1;end;writeln('количество элементов превышают среднее арифметическое  = ',n);end.

Uses crt;
type sInfo = record     
surname:string;     
height:integer;
end;
var pInfo:array [1..12] of sInfo;
begin       
pInfo[1].surname := 'Смирнов';
pInfo[1].height := 190;       
pInfo[2].surname := 'Иванов';
pInfo[2].height := 155;       
pInfo[3].surname := 'Николаев';
pInfo[3].height := 150;               
pInfo[4].surname := 'Викторов';
pInfo[4].height := 168;               
// И так далее по примеру выше.       
// Вывод вот так:       
writeln('Фамилия = ', pInfo[1].surname, ' Возраст = ', pInfo[1].height);
end.