Перепешите пожалуйста программу с процедурой!

Uses crt;
Const Nsize=40;
Type mas=array[1..Nsize] of real;
Var a:mas;
       b,s: real;
    i,N: byte;
Begin
Write(‘b=’); readln(b);
Repeat
Clrscr;
Write(‘size array N<=’, Nsize); readln(N)
Until N in [1..Nsize];
For i:=1 to N do
begin
write(‘a[i]=’); readln(a[i]);
end;
for i:=1 to N do
if (a[i]<b) and (a[i]>0) then
s:=s+a[i];
Writeln(‘summa=’,s:12:4);
Readln;
End.

Uses crt;
 Const Nsize=40;
 Type mas=array[1..Nsize] of real;
 Var a:mas;
 b,s: real;
 i,N: byte;
 Procedure P(A:mas;n:byte;b:real;Var s:real);
 Var i:byte;
 Begin
      s:=0;
      for i:=1 to N do
       if (a[i]<b) and (a[i]>0) then
        s:=s+a[i];
 End;
 Begin
 Write('b='); readln(b);
 Repeat
 Clrscr;
 Write('size array N<=', Nsize); readln(N)
 Until N in [1..Nsize];
 For i:=1 to N do
 begin
 write('a[i]='); readln(a[i]);
 end;
 P(A,n,b,s);
 Writeln('summa=',s:12:4);
 Readln;
 End.