Метод простых итераций, Решение СЛАУ Опции

[Eclipse_dp]

Ребят нужна помощь, нужно написать программку для решения СЛАУ методом итераций.

Program zadacha1;
type
matriza= array[1..100,1..100] of real;
Var b,prob,x,x1: array[1..100] of real;
i,j:real;
e:real;
n:integer;
Procedure vvod(var n:integer;var E:real; i,j:integer;var b:array of real;var a:matriza);
begin
			Write('vvedite razmer matritci n');
			Readln(n);
		For i:=1 to n do
		For j:=1 to n do begin
			Write('A[',i,',',j,']=');
			Readln(A[i,j]);
end;
		For i:=1 to n do
		If a[i,i]=0 then begin
			Writeln('oshibka vvoda');
end;
		For i:=1 to n do begin
			Write('b[',i,']=');
			Readln(b[i]);
end;
			Write('vvedite tochnost E=');
			Readln(E);
end;
Function otv(i,j:integer; var b,x,x1:array of real;a:matriza):real;
begin
		For i:=1 to n do
begin
		For i:=1 to n do
begin
		If i=j then
			a[i,j]:=-a[i,j]/a[i,i];
end;
			b[i]:=b[i]/a[i,i];
			a[i,i]:=0;
end;
		For i:=1 to n do
begin
		For j:=1 to n do
			Write(a[i,j]2,'');
			Write(b[i]2,'');
end;
		For i:=1 to n do
			x[i]:=0;
repeat
		For i:=1 to n do
begin
		For j:=1 to n do
			x1[i]:=x1[i]+a[i,j]*x[j];
			x1[i]:=x1[i]+b[i];
end;
		For i:=1 to n do
begin
			x[i]:=x1[i];
			x1[i]:=0;
end;
until 			abs(x1[i]-x[i])<E;
			otv:=x[i];
end;
 
Procedure vivod(i,n:integer;var otv:array of real);
begin
		For i:=1 to n do
			Writeln(otv[i]);
end;
begin
			vvod(n,a,b);
			otv(i,j,b);
			vivod(otv[i]);
end.

Вот примерный код программы, но он щитает с ошибками, большая просьба помочь разобраться в этом методе

Сообщение отредактировано: Eclipse_dp - 18.03.2010 0:10