Нахождение собственных чисел методом прямых итераций

[DariaCh13]

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

program iter; 
uses crt;

const  N=30;
type
//Создаем новые переменные: матрица и вектор.
 Tmass=array [1..N,1..N] of real;
 TVec=array [1..N] of real;
  
function Proizvedenie(Mass:Tmass;Vec:TVec):TVec;
var
  k,j:integer;
  Summ:Real;
begin
    for j:=1 to N do begin
      Summ:=0;
      for k:=1 to N do
        Summ:=Summ+Mass[j,k]*Vec[k];
      Proizvedenie[j]:=Summ;
   end;
end;

begin
clrscr;
var i,j,n:integer;
assign(f,'matr.txt');
reset(f);
read(f,n);
for i:=1 to n do
 begin
 for j:=1 to n do
  begin
    read(f,a[i,j]);
    wtrite(a[i,j]:4);
  end;
  writeln;
 end;
close(f);
var x0, s, t: array[1..n] of integer;
for i:=1 to n do
 x0[i]:=1;
t[n]:=x0;
repeat
  begin
     p[n]:=s[n];
     s[n]:=Proizvedenie(a[n,n],t[n]);
        for i:=1 to n do 
          begin
            y[i]:=s[i]/t[i]; {массив из частных соответствующих координат}
            b:=0;
              for i:=1 to n-1 do
                begin
                  if y[i]=y[i+1]
                   then inc(b);
                end;
          end;
     t[n]:=p[n];
  end; 
  until b=n;
writeln(y[1], '- наибольшее собственное число заданной матрицы');
readln;
end.

________
Код нужно оформлять по правилам:
тегом [CODE]..[/СODE]
(это кнопочка на панели форматирования с решёточкой #)
Не забывайте об этом!

Модератор.

[newerow1989]

Смотри ошибки на картинке: