Дана матрица размером 3*4. Найти сумму элементов матрицы

s:=0;
for i:=1 to 3 do
for j:=1 to 4 do
s:=s+a[i,j];

program rabota;
var i,s, j: integer;
A: array [1..3,1..4] of integer;
procedure oh_tizh_blin (var a:array[1..3,1..4] of integer; var s,i,j: integer);
begin
s:=0;
for i:=1 to 3 do
for j:=1 to 4 do
Begin
A[i,j]:=random(50);
S:=s+a[i,j];
Write(s)
End;
begin
oh_tizh_blin(i,j,a,s);
end.

program rabota;
type mas=array [1..3,1..4] of integer;
procedure oh_tizh_blin (var a:mas; var s: integer);
var i,j:integer;
begin
s:=0;
for i:=1 to 3 do
 begin
  for j:=1 to 4 do
   Begin
    a[i,j]:=random(50);
    s:=s+a[i,j];
    write(a[i,j]:4);
   end;
  writeln
 end;
Write('S=',s)
End;
var a:mas;
    s:integer;
begin
oh_tizh_blin(a,s);
end.