Задача в PascalABC, составить программу

const
R = 3;
C = 6;

var
A: array[1..3, 1..6] of single;
s: single;
i, j: integer;

begin
randomize;
s := 0;
for i := 1 to R do
begin
for j := 1 to C do
begin
A[i, j] := -60 + random(121);
write(A[i, j]:4:0);
s := s + A[i, j];
end;
writeln;
end; writeln;

for i := 1 to R do
begin
for j := 1 to C do
begin
A[i, j] := A[i, j] / s;
write(A[i, j]:6:2, ' ');
end;
writeln;
end;
end.