Создайте двумерный массив вещественных чисел имеющих 10 строк и 15 столбцов. Выведите его на экран. Затем разделите каждый элемент массива на средние значение элементов строки, в которой он находится.Результат выведите на экран — Pascal(Паскаль)

uses crt;
const n=5;
var a:array[1..n,1..n] of real;
    i,j:integer;
    s,sr:real;
begin
ClrScr;
Randomize;
for i:=1 to n do
 begin
  for j:=1 to n do
   begin
    a[i,j]:=-10+random(20);
    Write(a[i,j]:6:1);
   end;
  Writeln;
 end;
Writeln;
for i:=1 to n do
 begin
 s:=0;
  for j:=1 to n do
   s:=s+a[i,j];
  sr:=s/n;
  Writeln(i,': ',sr:0:1);
   for j:=1 to n do
 a[i,j]:=a[i,j]/sr;
 end;
for i:=1 to n do
 begin
  for j:=1 to n do
   Write(a[i,j]:6:1);
  Writeln;
 end;
Readln;
end.