Разделить элементы k-й строки матрицы на диагональный элемент ,расположенный в этой строке.

for k:=1 to n do
for j:=1 to n do
a[k,j]:=a[k,j]/a[k,k]

for k:=1 to n do//идем по строкам
for j:=1 to n do//идем по строке вперед
a[k,j]:=a[k,j]/a[k,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;
     write('vvedite k');
     readln (k);
     for k:=1 to n do
     for j:=1 to n do
     a[k,j]:=a[k,j]/a[k,k];
     write (a[k,j]:3:0);
     writeln;
     readkey;
end.

for i:=1 to n do
for j:=1 to n do
a[i,j]:=a[i,j]/a[i,i];

write('vvedite k');
 readln (i);
 for i:=1 to n do
 for j:=1 to n do
 a[i,j]:=a[i,j]/a[i,i];
 write (a[i,j]:3:0);

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.