Написать программу с использованием подпрограмм по готовому коду

var s,k,i,j:integer;
begin
writeln('Числа от 1 до 200 имеющие 5 делителей:');
  for i:=1 to 200 do
      begin
           k:=0;
           for j:=1 to i do
           if i mod j=0 then k:=k+1;
           if k=5 then
      begin
           s:=s+i;
           writeln(i,'');
      end;
  end;
writeln('Их сумма = ',s);
end.

var s,i:integer;
 
function Delit(i:integer):integer;
var k,j:integer;
begin
           k:=0;
           for j:=1 to i do
           if i mod j=0 then k:=k+1;
           Delit:=k;
end;
 
begin
writeln('Числа от 1 до 200 имеющие 5 делителей:');
  for i:=1 to 200 do
      if Delit(i)=5 then
      begin
           s:=s+i;
           writeln(i,'');
      end;
writeln('Их сумма = ',s);
end.

var s,i:integer; 
 
function Delit(i:integer):integer;
var k,j:integer;
begin
           k:=0;
           for j:=1 to i do
           if i mod j=0 then k:=k+1;
           Delit:=k;
end;
 
function Delit2(x:integer):integer;
var i:integer;
begin
  for i:=1 to x do
      if Delit(i)=5 then
      begin
           s:=s+i;
           {writeln(i,''); <------ }
      end;
   Delit2:=s;      
end; 
 
begin
writeln('Числа от 1 до 200 имеющие 5 делителей:');
Delit2(200);
{writeln(i,'') сделать где нибудь здесь;}
writeln('Их сумма = ',s);
end.