дан произвольный массив R размерностью

[martofpain]

дан произвольный массив R размерностью n. найти сумму элементов массива R, а так же сумму корней элементов массива R. Исходные данные взять самостоятельно.
Проблема в том что надо использовать процедуру или функцию.
я написал но без них. А переделать не понимаю как
Помогите
вот код

var 
min, max, sum:REAL; 
skk : real; 
n,t,i, imin, imax:integer; 
a:array[1..20] of integer; 
begin 
write('Введите размерность массива: '); readln(n); 
for i:= 1 to N do 
begin 
a[i]:=random(20)-10; 
write(a[i]:4); 
end; 
writeln; 
min := a[1]; imin:=1; 
for i:= 1 to N do 
begin 
if a[i] < min then 
begin 
min := a[i]; 
imin := i; 
end; 
end; 
max := a[1]; imax:=1; 
for i:= 1 to N do 
begin 
if a[i] > max then 
begin 
max := a[i]; 
imax := i; 
end; 
end; 
if imin>=imax then 
begin 
t:=imin; 
imin:=imax; 
imax:=t; 
end; 
 
//отвечает за сумму
sum := 0; 
for i:= imin to imax do 
begin 
sum := sum + a[i]; 
end; 
 
//отвечает за сумму кв корней
for i:= imin to imax do 
begin 
skk:=skk+sqr(a[i]); 
end; 
 
writeln('Сумма квадратных корней элементов массива ',skk); 
writeln('Сумма ',sum); 
end.

[p51x]

Проблема в том что надо использовать процедуру или функцию.
я написал но без них. А переделать не понимаю как

Напишите процедуру/функцию, в которую перенесите весь код суммирования, а в основном теле поставьте ее вызов.