Процедуры и функции

[GOSHA24Rus]

код:
a:array [1...100,1.....100]of real;
b:array [1.....100]of real;
i, j, k, m, x: integer;
x0:real;
begin
writeln ('Введите М');
read (M);
x0:=1.2;
for i:=1 to M do
for j:=1 to M do

begin
a[i,j]:=x0;
x0:=sin(x+4)*sin(x+4)*sin(x+4);
end;
writeln (' Массив А ');
for i:= to M do
begin
for j:=1 to M do
writeln (a[i,j]:10:3);
end writeln ('массив В');
for i:=1 to M do
begin [i]:=0;
for j:=1 to M do
if a [i,j]>0
then b[i]:=b[i]+a[i,j];
write (b[i]:10:3);
end
readln;
END/.
Народ нужна помощь вот с это программой, нужна этот массив который выше описан, записать ввиде процедуру и функцию!!!!