Сгенерировать массив из случайных чисел, чтобы соотношение сумм элементов выше и ниже главной диагонали стремилось к 1/3

uses crt;
var a:array[1..12,1..12] of real;
    n,i,j:byte;
    s1,s2,ot:real;
begin
randomize;
repeat
write('Введите размер матрицы от 2 до 12 n=');
readln(n);
until n in [2..12];
s1:=0;
s2:=0;
for i:=1 to n do
 begin
  for j:=1 to n do
   begin
    if j>i then
     begin
      a[i,j]:=5*random;
      s1:=s1+a[i,j];
     end
    else if j<i then
     begin
      a[i,j]:=15*random;
      s2:=s2+a[i,j];
     end
    else a[i,j]:=0;
    write(a[i,j]:6:2);
   end;
  writeln;
 end;
ot:=s1/s2;
write('Отношение=',ot:0:3)
end.

uses crt;
var a:array[1..12,1..12] of real;
    n,i,j:byte;
    s1,s2,ot:real;
begin
randomize;
repeat
write('Введите размер матрицы от 2 до 12 n=');
readln(n);
until n in [2..12];
s1:=0;
s2:=0;
for i:=1 to n do
 begin
  for j:=1 to n do
   begin
    if j>i then
     begin
      a[i,j]:=5*random;
      s1:=s1+a[i,j];
     end
    else if j<i then
     begin
      a[i,j]:=3*a[j,i];
      s2:=s2+a[i,j];
     end
    else a[i,j]:=0;
    write(a[i,j]:6:2);
   end;
  writeln;
 end;
ot:=s1/s2;
write('Отношение=',ot:0:3)
end.