как заменить некоторые операторы на процедуры и функции в паскале.Очень нужно!

[Анастасия1902]

program mass;
uses crt;
const N=3;
M=3;
var
A:array[1..N]of integer;
B:array[1..M]of integer;
C:array[1..M+N-1]of integer;
i,KB,KA,Koef,k: integer;
begin
clrscr;
for i := 1 to N do {zapolnenie i vivod massiva}
begin
write('vvedite element 1-go polinoma');
writeln;
read(A[i]);
end;

for i := 1 to M do {zapolnenie i vivod massiva}
begin
write('vvedite element 2-go polinoma');
writeln;
read(B[i]);
end;

k:=2;
for i := 1 to N+M-1 do
begin
if i<=N then
begin
KB:=i;
Koef:=0;

for KA:=1 to i do
begin
Koef:=Koef+A[KA]*B[KB];
KB:=KB-1;
end;
C[i]:=Koef;
end
else
begin
KB:=N;
Koef:=0;
for KA:=k to N do
begin
Koef:=Koef+A[KA]*B[KB];
KB:=KB-1;
end;
C[i]:=Koef;
k:=k+1;

end;
end;

writeln;
for i := 1 to N do {vivod 1-go polinoma}
write(A[i]:4);
writeln;
writeln;

for i := 1 to N do {vivod 1-go polinoma}
write(B[i]:4);
writeln;
writeln;

for i := 1 to N+M-1 do {vivod poluchennogo massiva}
write(C[i]:4);

readkey;
end.

[Serebro]

Анастасия1902!

Какие операторы? На какие процедуры?

[Анастасия1902]

неважно какие, просто нужно часть этого кода заменить так, чтобы там были функции и процедуры.любые, но чтобы программа работала как прежде!