Вдвумерном массиве а(4,4)определить сумму элементов меньших 7

Const     n = 4;     c = 7; var     a: array[1..n,1..n] of integer;     i,j: integer;     s: real; begin randomize; writeln('исходный массив: '); s: =0; for i: = 1 to n do       begin       for j: = 1 to n do               begin               a[i,j]: =random(21)-10;               write(a[i,j]: 3,' ');               if a[i,j] < c then s: =s+a[i,j];               end;       writeln       end; writeln('s = ',s); end.

паскаль же?

var s, x: string; c, n, err, i, d, k: integer; begin readln (s); n: =length(s); for i: =1 to n do begin

d: =d+k;

val(s,k,err);

end;

write (d);

end.

var

a: array[1..31] of real;

i,k: integer;

min: real;

begin

min: =50;

for i: =1 to 31 do

begin

readln(a[i]);

if a[i]< min then min: =a[i];

end;

k: =0;

for i: =1 to 31 do

if a[i]=min then k: =k+1;

writeln(k);

end.