Найдите сумму и количество элементов каждой строки больше среднего арифметического

Program asd; const n=3; m=3; var a: array[1..n, 1..m] of integer; i,j,s,s1,k: integer; sr: real; begin   writeln('массив а: ');   for i: =1 to n do   begin     s: =0;     for j: =1 to m do       begin       a[i,j]: =random(10);       write(a[i,j]: 2);       s: =s+a[i,j];           sr: =s/i;       end;       writeln;   end;   writeln;   k: =0;   for i: =1 to n do     begin     s1: =0;       for j: =1 to m do                     if a[i,j]> sr then           begin           inc(k);           s1: =s1+a[i,j];     end;                 writeln('сумма строки №',i,' : ',s1);     end;     writeln('сред. ариф. массива: ',sr: 2: 2);       writeln('количество: ',k); end.

Var i,j,k: integer;     a: set of integer; begin   i: =3; a: =[];   repeat     k: =0;     for j: =2 to trunc(sqrt(i))+1 do     if (i mod j)=0 then     begin       k: =1;       break;     end;       if k=0 then a: =a+[i];     i: =i+4;   until i> 256;   writeln(a); end. 83 79 167 163 251 71 67 151 239 59 139 227 47 223 43131 127 211 31 23 199 19 107 103 191 11 7 3 179 

// pascalabc.net 3.2, сборка 1381 от 04.02.2017 // внимание! если программа не работает, обновите версию! begin   var s: set of integer: =[];   for var i: =1 to 254 do begin       var flag: =true;       var j: =2;       var r: =round(sqrt(i));       while flag and (j< =r) do           if i mod j = 0 then flag: =false           else j+=1;       if flag then           if i mod 4=3 then s+=[i]       end;       foreach var x in s do print(x); end. результат 83 79 167 163 251 71 67 151 239 59 139 227 47 223 43 131 127 211 31 23 199 19 107 103 191 11 7 3 179