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

94;-46;-64;-8;-11; 62;-8;-89; 23; 6; 98;-2;-58;-13;-43;-18;-67; 56; 1;-75; 79; 98; 34; 22;-51;-39;-55; 76;-14; 70;
summa pol.4isel = 719 kol. pol.4isel = 13
-------------------
86; 48; 50;-22;-38;-12; 94; 6;-16; 26; 26;-52;-40;-61; 85;-5; 28; 2; 36; 53;-54; 97; 20; 70; 92; 10; 7;-70; 66;-68;
summa pol.4isel = 902 kol. pol.4isel = 19
-------------------
72;-86; 100;-75; 23; 92; 12; 6;-94;-49; 76; 15; 10;-78;-72;-36; 72; 87;-85;-17; 8; 25; 48;-68; 22; 29; 98;-16; 45; 76;
summa pol.4isel = 916 kol. pol.4isel = 19
-------------------
-10;-32; 40;-80; 14;-95; 81; 32;-61; 67;-47; 66;-45;-80;-24;-66;-8; 31;-76;-3;-98; 28; 92; 88;-10;-47;-40; 22; 44; 75;
summa pol.4isel = 680 kol. pol.4isel = 13
-------------------
-72;-18;-2;-29; 72; 53;-40; 30; 76;-97; 44; 40; 9; 56;-70; 54;-18; 74;-22;-31;-31; 86; 11; 43; 100;-65;-94; 26; 53;-74;
summa pol.4isel = 827 kol. pol.4isel = 16
-------------------
38; 38;-97; 81; 88; 56; 37;-5;-48;-78;-61; 45; 34;-47;-53; 67; 63;-21; 26;-81; 5;-21;-69; 84; 29; 81; 95;-10; 58; 100;
summa pol.4isel = 1025 kol. pol.4isel = 18
-------------------
-11;-41; 11; 86;-22; 60;-51; 35;-75;-21; 75;-54;-92; 19; 11;-97; 69;-33; 88;-34; 32; 85; 90; 98;-82; 82;-98;-37;-47;-74;
summa pol.4isel = 841 kol. pol.4isel = 14
-------------------
-86;-20; 78; 89;-67;-51; 44;-24; 84;-15; 61;-90; 75; 68;-14; 43;-32; 28;-63; 25;-47; 25; 95; 20; 64; 56; 73; 99;-29; 32;
summa pol.4isel = 1059 kol. pol.4isel = 18
-------------------
40; 95;-72;-34;-75; 12;-65; 1;-92;-37; 14;-74; 11; 47;-18; 70;-79; 59;-32;-70;-18; 79;-11;-68; 79; 52;-62;-22; 86; 13;
summa pol.4isel = 658 kol. pol.4isel = 14
-------------------
-100;-47; 37;-6; 55;-77;-13;-11;-67;-30;-28; 48; 47;-19;-17; 6;-11;-74; 37;-15; 24; 87;-25;-93;-54; 66;-41; 99; 19;-82;
summa pol.4isel = 525 kol. pol.4isel = 11
-------------------
65;-39;-84; 7;-38; 84;-90;-20; 86; 65; 98; 67; 76;-93; 33;-74;-53; 73; 22; 84;-89; 47;-44;-1;-31;-46; 78; 44; 55;-39;
summa pol.4isel = 984 kol. pol.4isel = 16
-------------------
-87; 59; 63; 91; 6;-94;-90; 43; 94;-68; 13;-30; 87;-8; 63;-28; 74;-2; 48;-3;-43; 56; 2;-60; 36; 35; 34; 91;-94; 23;
summa pol.4isel = 918 kol. pol.4isel = 18
-------------------
90;-45;-4; 83;-32; 96;-18; 4;-57; 64;-74; 15;-33; 48;-70; 3; 52;-88;-57;-23; 84; 12;-86; 38; 26; 86;-60; 81; 49;-66;
summa pol.4isel = 831 kol. pol.4isel = 16
-------------------
24;-82; 36;-23; 76;-51; 74;-58; 77;-81; 6;-13;-37;-59; 12;-98; 68;-86;-98;-67;-32;-26;-46; 58; 94; 59; 65;-51; 68; 26;
summa pol.4isel = 743 kol. pol.4isel = 14
-------------------
14; 46; 78;-32;-81;-8; 56; 67; 41; 70;-16;-48; 59;-16;-29; 24;-76;-22; 69;-59;-60;-2;-61;-80;-57; 58; 33; 28;-37;-33;
summa pol.4isel = 643 kol. pol.4isel = 13
-------------------
-85;-75;-81;-49; 45; 58;-67;-13;-61; 51;-72;-5; 14;-100; 23; 72; 40;-16;-23;-52;-75;-26;-3;-22;-5;-18; 72;-47; 22;-98;
summa pol.4isel = 397 kol. pol.4isel = 9
-------------------
12; 32; 17;-49;-94;-11;-2; 74; 69; 1; 74; 6; 53; 23; 31; 5; 84; 39;-18; 96; 79;-98;-84; 16; 81; 89;-30; 68; 10; 90;
summa pol.4isel = 1049 kol. pol.4isel = 22
-------------------
72; 89; 30;-48; 18; 75;-40; 5; 32; 86; 24;-94; 20; 82; 8; 49; 91; 35;-45; 42;-3;-81;-63;-37; 19; 71;-19;-35; 51;-20;
summa pol.4isel = 899 kol. pol.4isel = 19
-------------------
38; 81;-76;-49; 2;-82; 17; 14;-51; 21; 93; 13; 49; 56;-24;-17; 33; 34;-30;-11; 68;-40;-83; 45; 97;-50; 56;-80; 86;-77;
summa pol.4isel = 803 kol. pol.4isel = 17
-------------------
60;-99; 32;-20; 47; 92;-22; 76; 15;-28; 41;-69; 95; 78;-15; 17; 66;-73; 45; 30;-13; 62;-57; 56;-70; 56; 57;-33; 72;-81;
summa pol.4isel = 997 kol. pol.4isel = 18