Сформировать целочисленный массив (6*6), заполненный случайным образом числами из промежутка [-50;50] ПАСКАЛЬ! ПОМОГИТЕЕ

Program Z1; uses crt; const N=6; var A:array [1..N,1..N] of integer;        i,j:integer; begin ClrScr; for i:=1 to N do begin for  j:=1 to N do begin A[i,j]:=Random(101)-50; write (A[i,j]:4); end; writeln; end;   end.

Program Massiv; Uses Crt; var i,j:integer;        a: array[1..6,1..6] of integer; begin      clrscr;       randomize;       for i:=1 to 6 do           begin               for j:=1 to 6 do                   begin                       a[i,j]:=random(101)-50;                 end;       end;    for i:=1 to 6 do      begin        for j:=1 to 6 do            begin              write(a[i,j]:3);           end; writeln; end;   readkey; end.