Задана матрица порядка n и число к. Разделить элементы k-й строки на диагональный элемент, расположенный в этой строке. (программа Паскаль)

uses crt;
var
 a : array[1..100,1..100] of real;
 k,i,j,n : integer;
begin
     clrscr;
     randomize;
     write('vvedite razmer n');
     readln(n);
     for i:=1 to n do
     for j:=1 to n do
     a[i,j]:=random(10);
     for i:=1 to n do
     begin
          for j:=1 to n do
          write(a[i,j]:3:0);
          writeln;
     end;
     repeat
     write('vvedite k от 1 до ',n);
     readln (k);
     until k in [1..n];
     for j:=1 to n do
     a[k,j]:=a[k,j]/a[k,k];
      for i:=1 to n do
     begin
          for j:=1 to n do
          write(a[i,j]:3:0);
          writeln;
     end;
       readkey;
end.