Разделить элементы k-й строки на диагональный элемент

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

сама соль такая

...
   {делим элементы К-ой строки на диагональный элемент}
   for i:=1 to N do begin
      if a[i,i] = 0 then begin
          writeln('внимание! деление на 0!');
          break;
      end;
      a[K, i]:=round(a[K, i]/a[i,i]); {округляем до целого}
   end;
...

ну а полный вариант программы можно скачать тут