собственный вектор

[Lizonka-88]

составила программу для нахождения собственного вектора, но что-то где-то перепутала, когда вычитание проводила предыдущих слагаемых с настоящими (условие в While параметр с и b).
само задание и как его делать в файле, точнее там пример. но вроде все понятно.
вначале ввели матрицу, у которой нужно найти собственное число и вектор. потом повторяем перемножение до тех пор пока разность между первой координатой вектора (собственным числом) не будет отличаться от предыдущего положения на е, также и каждая координата соответственно.
вот код

Program zad4;
const e=0.001;
type matrica= array [1..3, 1..3] of real;
     vektor = array [1..3] of real;
Var a: matrica; x0, xn: vektor;
 i,j: integer;  c,b:real;
Begin
writeln('vvedite zadannyu matricy');
  for i:= 1 to 3 do
    for j:= 1 to 3 do
        readln(a[i,j]);
 writeln('vvedite nulevoi vektor');
  for i:= 1 to 3 do
         readln(x0[i]);
         
  for i:= 1 to 3 do
 begin xn[i]:= a[1,i]*x0[i];
 x0[i]:=xn[i]; b:= xn[1]; end;
 
While ((abs(b-c))<e)and((abs(x0[1]-xn[1]))<e)and((abs(x0[2]-xn[2]))<e)and((abs(x0[3]-xn[3]))<e) do
begin
 for i:= 1 to 3 do
 begin xn[i]:= a[1,i]*x0[i];
 x0[i]:=xn[i];
 end;
 c:= xn[1];
end;
Writeln('sobstvennoe chislo ', c:2:4);
for i:= 1 to 3 do
  writeln (x0[i], ' ');
end.

[Lizonka-88]

вот задание