Помогите,пожалуйста,это очень безотлагательно. Задание 42, программка на Паскале

нумерация частей, а соответственно и строк в массиве начинается с 0

программа не проверяет введенные данные на правильность, то есть если ввести номер строчки выходящий за рамки массива то будет ошибка.

так как не было обозначено где брать элементы массива то он заполняется случайными числами в диапозоне 0..100

var

   n, k : integer;

   a : real;

   var d : array[,] of real;

begin

   write('введите размер матрицы n=');

   readln(n);

   d := new real[n,n];

   for var i := 0 to n-1 do begin

       for var j := 0 to n-1 do d[i,j] := random(101);

   end;

   write('введите номер строчки k=');

   readln(k);

   a := d[k,k];

   for var i := 0 to n-1 do if d[k,k] lt;gt; 0 then d[k,i] := d[k,i]/a;

end.