Пожалуйста, напишите общую программку по информатике девятого класса по программирование.Дано

Пожалуйста, напишите общую программку по информатике девятого класса по программирование.
Дано три задачки:
1) Вычисление суммы элемента массива
2) Определение величайшего элемента в массиве
3) Нахождение элемента, одинакового данному

Есть только две программки ко 2-ой и третьей задачке, нужна программка к первой задачке и еще необходимо соединить все эти три программки в одну.

2-ая программка программа для решения 2-ой задачки:

program n_3;
var s, i, imax: integer;
a:array[1..10] of integer;
begin
s:=0
for i:=1 to 10 do a[i]:=random(50);
for i:=1 to 10 do write (a[i],' ');
imax:=1
for i:=2 to 10 do
if a[i]gt;[imax] then imax:=1;
write ('наивеличайший элемент a[', imax, ']' a[imax]')
end.

3-я программка для решения третьей задачи:

program n_3;
var n, i, imax: integer;
a:array[1..10] of integer;
begin
for i:=1 to 10 do a[i]:=random(50);
for i:=1 to 10 do write (a[i],' ');
n:=0;
for i:=1 to 10 do
if a[i]=50 then n:=i;
if n=0 then write ('нет') else write (i)
end.