Задан массив размером 30 элементов. Подсчитать число и сумму положительных элементов в нем. в Паскале

Program MyCounter;
var
D:array [1..30] of real;
I,Pst:Byte;
SoP:real;
Begin
randomize; Pst:=0; SoP:=0.0;
for I:=1 to 30 do
begin
D[I]:=(Random-0.5)*MaxInt;
if D[I]<=0.0 then Continue;
Inc(Pst);
SoP:=SoP+D[i]
end;
Write('Положительных элементов массива — ');
if Pst=0 then Writeln('НЕТ')
else begin Writeln(Pst); Writeln('Их сумма равна ', SoP) end;
Writeln(' Для выхода нажмите клавишу Enter');
Readln
End.

-30;-49;-33;-26;-60; 29;-20; 49;-36; 10;-42;-30;-3;-1;-58; 97;-95;-8;-40; 0; 85; 91; 26; 69;-36; 13; 64; 60;-49; 84;
summa polozhit = 677 kol polozhit = 12
---------------
52;-91;-26; 22; 80;-68;-48;-51; 33; 17; 81;-76; 70;-50;-34; 66; 9;-55; 3;-92; 88;-48;-24; 76;-4;-19;-22;-42; 70; 88;
summa polozhit = 755 kol polozhit = 14
---------------
67; 11; 67;-59;-70;-12;-87; 88;-79; 45; 0; 96;-73; 38;-76; 9;-72; 74; 48; 28; 87; 34;-63;-79; 65;-55; 34; 68;-43;-72;
summa polozhit = 859 kol polozhit = 16
---------------
95;-41; 97;-41; 22; 19;-11; 52; 56; 2; 29;-98; 15; 49; 95; 71;-31;-48;-93;-14; 0;-62;-93; 74;-31; 82;-8;-47;-99; 73;
summa polozhit = 831 kol polozhit = 15
---------------
-48; 87; 77; 38; 82;-19;-6; 56;-80; 25; 13;-15; 11; 8; 27; 87; 29;-72; 94; 73;-31;-75; 23;-47; 0; 74; 34;-14;-59;-80;
summa polozhit = 838 kol polozhit = 17
---------------
82;-39; 34;-53;-92; 72;-21;-94; 26; 65;-18;-6; 14;-77; 53; 55; 47; 44; 45;-7; 33;-27; 52; 83;-44; 65; 20;-3;-63;-24;
summa polozhit = 790 kol polozhit = 16
---------------
-72; 79; 9;-41; 94; 67;-69;-50; 94; 49; 94; 89;-26; 1;-76;-78; 81;-54; 71;-16;-40; 36; 46; 27; 24;-29; 37;-13; 42; 16;
summa polozhit = 956 kol polozhit = 18
---------------
93; 77; 22; 4;-58; 14; 34; 21;-7;-47;-76; 0; 29; 83; 13; 29;-29;-57;-51;-52;-74; 78; 82; 8; 46; 83; 40; 94; 91; 87;
summa polozhit = 1028 kol polozhit = 20
---------------
19; 8; 68;-70; 80;-4;-37; 69;-75;-95;-77;-41; 93;-80; 88; 6; 11;-63;-89; 10; 47; 96; 58; 76;-7;-35;-91;-53;-36;-85;
summa polozhit = 729 kol polozhit = 14
---------------
-77;-92; 6;-83; 20;-47;-67;-10; 0; 64; 48; 96;-15;-48;-98;-1;-32; 81; 59; 92;-28; 73;-10;-83;-47;-8; 20; 93;-45;-99;
summa polozhit = 652 kol polozhit = 11
---------------
-40; 15;-23;-26;-63;-33; 27; 50;-69;-76;-74;-96; 30; 18;-25;-30;-63;-84; 10;-99;-68;-1; 68; 74;-89; 47;-5;-2; 56; 3;
summa polozhit = 398 kol polozhit = 11
---------------
8; 78;-22;-99;-9;-61; 17;-89;-82;-30;-54; 41;-38; 90; 70; 93;-4; 71; 40;-32;-68;-80; 32;-47;-34; 51; 48; 79; 70; 95;
summa polozhit = 883 kol polozhit = 15
---------------
8; 92;-10;-20; 73;-42;-33;-20;-52;-6;-4; 0;-5; 32; 49;-75;-83;-69;-3; 88; 74; 17; 72;-60; 57;-77;-69; 37; 48;-3;
summa polozhit = 647 kol polozhit = 12
---------------
15; 27; 9; 90;-24; 85; 61; 42; 98; 74; 59; 8; 10; 47; 78; 47; 97; 32;-79;-21;-10; 87; 65; 42;-62;-43; 25; 24;-83; 58;
summa polozhit = 1180 kol polozhit = 23
---------------
78;-48;-3;-19;-45;-71;-25;-22;-23; 89;-18; 1;-60;-23;-66;-22; 40; 45; 19;-27;-40;-28; 40;-84; 72;-97; 56; 38; 41; 80;
summa polozhit = 599 kol polozhit = 12
---------------
46;-8; 78; 78; 68; 0; 19; 99; 92; 47; 30;-39; 2; 2; 71; 30;-94;-41; 38;-58;-30; 19; 20;-9;-86; 17; 44; 20;-1; 92;
summa polozhit = 912 kol polozhit = 20
---------------
73; 42; 48; 58; 13;-89; 19; 8; 5; 92;-99; 88;-31; 93; 85; 61; 64; 38;-87; 18;-13; 25; 79;-24; 79; 52;-50; 75; 0; 70;
summa polozhit = 1185 kol polozhit = 22
---------------
4;-11;-51; 39;-16;-23; 57;-93; 74; 85;-87; 67;-22;-99; 38;-16; 69; 38;-94; 0; 36; 7; 78;-26; 11;-85;-3;-8;-94; 76;
summa polozhit = 679 kol polozhit = 14
---------------
-40; 15; 88; 24;-78; 0; 33; 57; 0; 29;-95;-77; 74; 20;-30;-97; 8;-43; 59;-4;-99;-67; 17; 15;-83;-14; 3; 20;-84;-9;
summa polozhit = 462 kol polozhit = 14
---------------
11;-58;-16; 16; 9; 47;-5;-87;-46;-33; 25;-27; 28; 62; 7; 17;-74; 10; 22;-88;-68; 28; 28;-74; 8;-93; 24;-58;-53;-59;
summa polozhit = 342 kol polozhit = 15
---------------
-11;-72;-4;-37;-72; 28; 21;-18;-15;-9; 75;-85; 95;-5; 86; 98; 54;-9;-85; 44; 75;-65;-68;-87;-30; 19; 45; 16;-31;-67;
summa polozhit = 656 kol polozhit = 12