Написать программу используя процедуры и функции

[Snyppi]

Помогите пожалуйста переделать прогу под процедуры и функции:
program lab8var3;
const n=5;
{type mas:array[1..n] of integer;}
var
a,b: array[1..n] of integer;
s,j,i,i1,i2,k: integer;
boo: boolean;
begin
boo:=false; k:=0; s:=0;
write('Введите массив ');
for i:=1 to n do
begin
write('a[',i,'] = ');
readln(a[i]);
if (a[i]=0)and(boo=false) then
begin
i1:=i;
boo:=true;
inc(k);
end
else if (a[i]=0)and(boo=true) then
begin
i2:=i;
inc(k);
end;
end;
if k<2 then writeln('Недостаточно нулей')
else for i:=i1 to i2 do s:=s+a[i];
writeln('Сумма элементов между 1-м и последним нулями = ', s);

For j := 1 To n-1 Do
For i := 1 To n-1 Do
If a[i] > a[i+1] Then
Begin
b[i]:=a[i];
a[i]:=a[i+1];
a[i+1]:=b[i]
End;
Writeln('Отсортированный массив чисел:');
For i:=1 To n Do
Writeln (a[i]);

readln;
end.