Escalonamento de Matriz - Direto da Ciência da Computação

Como eu tinha que aprender mesmo, aí está o código:

var i, j, k, l:integer;
begin
**for i := 1 to n - 1 do
**begin
****l := matriz[j][i];
****for j := i to n do
******matriz[i][j] := matriz[i][j] / l;
****for j := 1 to n do
******if i <> j then
******begin
********l := matriz[j][i];
********for k := i to n do
**********matriz[j][k] := matriz[j][k] - matriz[i][k] * l;
******end;
**end;
end;

ps: 'n' corresponde ao tamanho da matriz.