Более детальное разложение на процедуры (функции) !

[Alexbmgn]

Я разложил на процедуры части кода задачи. Вообще нивкакую голова не хочет понимать, как еще более раскласть на процедуры. Прошу кто может напишите возможное более детальное разложение на процедуры, именно этого кода (который безусловно далеко не самый оптимизированный, но данном этапе моего осознания более понятный)!

//Заданы два целых числа N, M. Определить, больше ли сумма простых делителей
//числа N, произведения составных делителей числа M.

uses crt;
var n,i,kol,pro,m,j,sum,delit:integer;
                           flag:boolean;

procedure prov_n(var n:integer);
begin
repeat
writeln('Введите первое число');
readln(n);
if n=1 then writeln('0 и 1 нельзя вводить ', 'сумма простых делителей этого числа= ',sum)
       else if n=0 then writeln('0 и 1 нельяз вводить ', 'сумма простых делителей этого числа= ',sum);
until n>1;
end;



procedure delit_sum(var n,sum:integer);
var i,delit:integer;
flag:boolean;
begin
for i:=2 to n-1 do
   if n mod i=0 then begin
              flag:=true;
              delit:=2;
              while flag and (delit<=i div 2) do
                      if i mod delit=0 then flag:=false
                                       else delit:=delit+1;
             if flag then sum:=sum+i;
end;
writeln('сумма простых делителей этого числа= ',sum);
end;


procedure prov_m(var m:integer);
begin
repeat
writeln('Введите второе число');
readln(m);
if m=1 then writeln('0 и 1 нельзя вводить ', 'сумма простых делителей этого числа= ',sum)
       else if m=0 then writeln('0 и 1 нельяз вводить ', 'сумма простых делителей этого числа= ',sum);
until m>1;
end;


procedure delit_pro(var m,pro:integer);
var delit,i,kol:integer;
flag:boolean;
begin
flag:=true;
delit:=2;

for i:=2 to m-1 do

if m mod i=0 then begin
kol:=kol+1;
while flag and (delit<=i div 2) do
      if i mod delit=0 then
                        begin
                        flag:=false;
                        pro:=pro*i;
                        end
                        else
                        delit:=delit+1;

end;
if kol=0 then pro:=0;
writeln('произведение составных делителей этого числа= ',pro);
end;

procedure rez(var sum,pro:integer);
begin
writeln;
if sum>pro then writeln('сумма простых делителей первого числа равная ',sum, ' > ', ' произведения составных делителей второго числа равного ', Pro)
         else if sum<pro then writeln('сумма простых делителей первого числа равная ',sum, ' < ', ' произведения составных делителей второго числа равного ', Pro)
                         else writeln('сумма простых делителей первого числа равная ',sum, ' = ', ' произведению составных делителей второго числа равного ', Pro);
end;


begin
pro:=1;
prov_n(n);
delit_sum(n,sum);
prov_m(m);
delit_pro(m,pro);
rez(sum,pro);
end.

[whatever]

var n,i,kol,pro,m,j,sum,delit:integer;
 flag:boolean;

 procedure prov_n(var n:integer);
 begin
 repeat
 writeln('Введите первое число');
 readln(n);
 if n=1 then writeln('0 и 1 нельзя вводить ', 'сумма простых делителей этого числа= ',sum)
 else if n=0 then writeln('0 и 1 нельяз вводить ', 'сумма простых делителей этого числа= ',sum);
 until n>1;
 end;



 procedure delit_sum(var n,sum:integer);
 var i,delit:integer;
 flag:boolean;
 begin
 for i:=2 to n-1 do
 if n mod i=0 then begin
 flag:=true;
 delit:=2;
 while flag and (delit<=i div 2) do
 if i mod delit=0 then flag:=false
 else delit:=delit+1;
 if flag then sum:=sum+i;
 end;
 writeln('сумма простых делителей этого числа= ',sum);
 end;


 procedure prov_m(var m:integer);
 begin
 repeat
 writeln('Введите второе число');
 readln(m);
 if m=1 then writeln('0 и 1 нельзя вводить ', 'сумма простых делителей этого числа= ',sum)
 else if m=0 then writeln('0 и 1 нельяз вводить ', 'сумма простых делителей этого числа= ',sum);
 until m>1;
 end;


 procedure delit_pro(var m,pro:integer);
 var delit,i,kol:integer;
 flag:boolean;
 begin
 flag:=true;
 delit:=2;

 for i:=2 to m-1 do

 if m mod i=0 then begin
 kol:=kol+1;
 while flag and (delit<=i div 2) do
 if i mod delit=0 then
 begin
 flag:=false;
 pro:=pro*i;
 end
 else
 delit:=delit+1;

 end;
 if kol=0 then pro:=0;
 writeln('произведение составных делителей этого числа= ',pro);
 end;

 procedure rez(var sum,pro:integer);
 begin
 writeln;
 if sum>pro then writeln('сумма простых делителей первого числа равная ',sum, ' > ', ' произведения составных делителей второго числа равного ', Pro)
 else if sum<pro then writeln('сумма простых делителей первого числа равная ',sum, ' < ', ' произведения составных делителей второго числа равного ', Pro)
 else writeln('сумма простых делителей первого числа равная ',sum, ' = ', ' произведению составных делителей второго числа равного ', Pro);
 end;

 procedure START;
 begin
 pro:=1;
 prov_n(n);
 delit_sum(n,sum);
 prov_m(m);
 delit_pro(m,pro);
 rez(sum,pro);
 end;

 Begin
 START;
 readln;

Дальше некуда, я думаю.