Ошибка 26..как её ипсправить в данной программе

[Klik_1602]

Доброго времени суток, всем, помогите в поиске исправления ошибки, не работает процедура, при компеляции выскакивает ошибка 23: т е error 26: Type mismatch...очень нужно, помогите, плиз!!

uses
 crt;
type
 matr=array[1..10,1..10] of integer;
 vekt=array[1..10] of integer;
var
 a:matr;
 b,x:vekt;
 n,i,j:integer;
 flag:boolean;

procedure vivodmatr(n:integer; a:matr; b:vekt; flag:boolean);{vivod matr}
var
 i,j:integer;
 fout:text;
begin
 assign(fout,'L7_out.txt');
 rewrite(fout);
 for i:=1 to n do
 begin
  for j:=1 to n do
  write (fout, a[i,j],' ');
  writeln(fout);
 end;
 close(fout);
end;

procedure vvodmatr (n:integer; var a:matr; var b:vekt; flag:boolean);
var
 i,j:integer;
 f:text;
begin
 if flag then
 begin
  assign(f,'L7_23.txt');
  reset(f);
  for i:=1 to n do
  begin
   for j:=1 to n do
   read(f,a[i,j]);
   readln(f);
  end;
  close(f);
  for i:=1 to n do
  begin
   for j:=1 to n do
   if i=j then
    a[i,j]:=1
  else
   if i>j then
   a[i,j]:=0
    end;
  end
    else
  assign(f,'L7_23.txt');
  reset(f);
  for i:=1 to n do
  read (f,b[i]);
  readln(f);
  close(f);
end;

procedure vektor(n:integer; var b:vekt);
var
 i:integer;
 fout:text;
begin
 assign(fout, 'L7_out.txt');
 append(fout);
 writeln(fout);
 for i:=1 to n do
  write (fout, b[i],' ');
  writeln(fout);
 close(fout);
end;

procedure korni(n:integer; var x,b:vekt; a:matr);
var
 i,j:integer;
 h:real;
begin
 for i:=n downto 1 do begin
 h:=b[i];
 for j:=i+1 to n do
 h:=h-x[j]*a[i,j];
 x[i]:=h/a[i,i];
 assign(fout,'L7_out.txt');
 append(fout);
 writeln(fout);
 writeln(fout,'Reshenie sistem');
 for i:=1 to n do
 writeln (fout,'x(',i,')=',x[i]);
 close(fout);
end;

begin
 clrscr;
 write('Vvedite chislo uravnenij: ');
 read(n);
 flag:=true;
 vvodmatr(n,a,b,flag);
 vivodmatr(n,a,b,flag);
 flag:=false;
 vvodmatr(n,a,b,flag);
 vektor(n,b);
 korni(n,x,b,a);
 readkey;
end.

вообще в программе реализуется обратный ход в решении СЛАУ метадом Гаусса

буду очень благодарна за любую помощь

[GetMax]

Изменяем тип массива на вещественный и все работает

 vekt=array[1..10] of Extended;

[Serge_Bliznykov]

ошибка совершенно справедливо выскакивает при компиляции строчки:

 x[i]:= h/a[i,i];

x типа vekt - а это vekt=array[1..10] of integer;
как Вы в целое число собираетесь результат деления записать?
думаю, что тут надо использовать вещественный тип данных...



p.s. в процедуре korni дальше ещё ошибки будут - переменная fout должна быть описана как fout:text;
ну и цикл for i:=n downto 1 do begin -
где для этого begin завершающий end ?!