Задан двумерный массив действительных чисел. Необходимо каждый элемент соответствующей строки разделить на сумму элементов этой строки. Измеримость массива и значение его элементов ввести с клавиатуры — Pascal(Паскаль)

Program n1;
Uses Crt;
Var a:array[1..10,1..10] of real;
    summ:array[1..10] of real;
    i,j,m,n:integer;
    f:real;
begin
     Clrscr;
     writeln('vedite rozmernost ');
     write('m= ');readln(m);
     write('n= ');readln(n);
     writeln('vedite elementu matritsu:');
     for i:=1 to m do
     for j:=1 to n do
         begin
               write('a[',i,',',j,']= ');
               readln(a[i,j]);
         end;
     writeln('matruza');
     for i:=1 to m do
         begin
              for j:=1 to n do
                       write(a[i,j]:3);
              writeln;
         end;
     for i := 1 to m do
         for j := 1 to n do
             summ[i] := summ[i] + a[i,j];
     writeln('summa koznogo radka: ');
     for i:=1 to m do writeln(i,' radok: ',summ[i]:3);
     writeln ('rezyltat');
     for i:=1 to m do
         for j:=1 to n do a[i,j] := a[i,j] / summ[i];
     for i := 1 to m do
         begin
              for j := 1 to n do
                  Write(a[i,j]:3);
              Writeln;
         end;
     readln;
end.