Delphi ошибка в процедуре

[tanek]

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

procedure CalculationOfMaximum;
const
  e=0.1;
var
  p,i,j : integer;
begin
  repeat
    p:=0;
    for I := 1 to 3 do
    begin
      x[i]:=-total_components[i];
      for j:=1 to 3 do
      begin
        if(i<>j) then
          x[i]:=x[i]+matrix[i][j]*x[j];
      end;
      x[i]:=x[i]/(-matrix[i][i]);
    end;
    for i:=1 to 3 do
      if (abs(x[i-1])-abs(x[i])) < e then
        P:=P+1;
  until p=3;
end;

вот сам проект....

[Volt]

ну во первых делить на ноль нельзя x[i]:=x[i]/(-matrix[i][i]); а (-matrix[i][i]) бывает равен нулю