Где ошибка?

[Murman_men]

Язык Delphi, консольный режим:

program Project3;

{$APPTYPE CONSOLE}

type
  TMass=array [1..2,1..2] of Real;
Procedure Det(a:TMass;n:byte; var res:real);
  var
    i,j,k:byte;
  begin
    for j:=1 to n-1 do
      for i:= j+1 to n do
        for k:= 1 to n do
          a[i,k]:= a[i,k]-a[i,j]/a[j,j]*a[j,k];
    res:=1;
    for i:= 1 to n do
      res:=res*a[i,i];
  end;
var
  a:TMass;
  i,j,n:byte;
  res:real;
begin
  readln(n);
  for i:= 1 to n do
    for j:= 1 to n do
      read(a[i,j]);
  Det(a,n,res);
  writeln(res);
  readln;
  readln;
end.

Где ошибка в данной программе, дело в том, что когда включаешь режим трассировки то в процедуре, в тройном цикле, переменной J присваивается значение 1, как и надо, но переменным i и k значение не присваивается вовсе, в чём тут дело?......Заранее благодарен.

[veniside]

{$OPTIMIZATION OFF }

[Murman_men]

А можно более конкретно, что это значит??.....то что мне надо вставить эту директиву это я понял, но что она значит и почему так происходит без этой директивы?....

[veniside]

F1

ОК, развёрнутый ответ: при включенной оптимизации компилятор в праве сам решать, нужны ли ваши циклы, переменные циклов и т.д, или их можно размотать, засунуть в регистры или ещё глубже Вот так и происходит, что переменная вроде есть, а показать нечего.