Считать и вывести матрицу из файла - Pascal ABC

Формулировка задачи:

Помогите! Проблема в том что программа считывает мтрицу. В файле находится матрица ввида 2 3 4 6 6 7 8 2 5 2 9 4 6 9 0 2 но программа выводит ее 2 3 4 6 6 7 8 2 5 2 9 4 6 9 0 2 0 0 0 0 0 0 0 0 0 0 0 0 0 0 . . . . . . . . . . . . . 0 0 0 0 0 0 0 0 0 0

 uses crt;
const t=0.000001;{Г®ГЈГ°Г*Г*ГЁГ·ГЁГўГ*ГҐГ¬ Г·ГЁГ±Г«Г*, ГЎГ«ГЁГ§ГЄГЁГҐ ГЄ Г*Г®Г«Гѕ, Г*Г* Г*ГЁГµ Г¤ГҐГ«ГЁГІГј}
n=10;
type Tmatr=array[1..10,1..10]of real;

//Procedure Chtenie(a:Tmatr;n:integer);
// var
 //   f:text;   c:char;
 
{ГЏГ°Г®Г¶ГҐГ¤ГіГ°Г* Г§Г*ГЇГ®Г«Г*ГҐГ*ГЁГї (ГЁГ*ГЁГ¶ГЁГ*Г«ГЁГ§Г*Г¶ГЁГЁ) Г¬Г*Г±Г±ГЁГўГ* ГЁГ§ ГґГ*Г©Г«Г*}
//Var i ,j: Integer; {i,j - ГЅГІГ® ГЇГҐГ°ГҐГ¬ГҐГ*Г*Г*Гї Г¤Г«Гї Г°Г*ГЎГ®ГІГ» Г± ГЅГ«ГҐГ¬ГҐГ*ГІГ*Г¬ГЁ Г¬Г*Г±Г±ГЁГўГ*}
//Begin
 
//End;
 
procedure Per(n,k:integer;a:Tmatr;var p:integer);{ГЇГҐГ°ГҐГ±ГІГ*Г*Г®ГўГЄГ* Г±ГІГ°Г®ГЄ Г± Г¬Г*ГЄГ±. ГЈГ«Г*ГўГ*Г»Г¬ ГЅГ«ГҐГ¬ГҐГ*ГІГ®Г¬}
var z:real;
    j,i:integer;
begin
z:=abs(a[k,k]);
i:=k;
p:=0;
for j:=k+1 to n do
  begin
    if abs(a[j,k])>z then
      begin
        z:=abs(a[j,k]);
        i:=j;
        p:=p+1;
      end;
  end;
if i>k then
for j:=k to n do
   begin
     z:=a[i,j];
     a[i,j]:=a[k,j];
     a[k,j]:=z;
   end;
end;
function znak(p:integer):integer;{ГЁГ§Г¬ГҐГ*ГҐГ*ГЁГҐ Г§Г*Г*ГЄГ* ГЇГ°ГЁ ГЇГҐГ°ГҐГ±ГІГ*Г*Г®ГўГЄГҐ Г±ГІГ°Г®ГЄ Г¬Г*ГІГ°ГЁГ¶Г»}
begin
if p mod 2=0 then
znak:=1 else znak:=-1;
end;
function znak1(i,m:integer):integer;{ГЁГ§Г¬ГҐГ*ГҐГ*ГЁГҐ Г§Г*Г*ГЄГ* ГЇГ°ГЁ ГЇГҐГ°ГҐГ±ГІГ*Г*Г®ГўГЄГҐ Г±ГІГ°Г®ГЄ ГЇГ°ГЁ Г*Г*ГµГ®Г¦Г¤ГҐГ*ГЁГЁ Г¤Г®ГЇГ®Г«Г*ГҐГ*ГЁГ©}
begin
if (i+m) mod 2=0 then
znak1:=1 else znak1:=-1;
end;
procedure opr(n,p:integer;a:Tmatr;var det:real;var f:byte);{Г*Г*ГµГ®Г¦Г¤ГҐГ*ГЁГҐ Г®ГЇГ°ГҐГ¤ГҐГ«ГЁГІГҐГ«Гї Г¬Г*ГІГ°ГЁГ¶Г»}
var k,i,j:integer;
    r:real;
begin
det:=1.0;f:=0;
for k:=1 to n do
   begin
     if a[k,k]=0 then per(k,n,a,p);
     det:=znak(p)*det*a[k,k];
     if abs(det)<t then
      begin
       f:=1;
       writeln('ГЋГЎГ°Г*ГІГ*Г®Г© Г¬Г*ГІГ°ГЁГ¶Г» Г*ГҐГІ!');
       readln;
       exit;
      end;
     for j:=k+1 to n do
        begin
         r:=a[j,k]/a[k,k];
         for i:=k to n do
         a[j,i]:=a[j,i]-r*a[k,i];
        end;
   end;
end;
procedure opr1(n,p:integer;d:Tmatr;var det1:real);{Г*Г*ГµГ®Г¦Г¤ГҐГ*ГЁГҐ Г®ГЇГ°ГҐГ¤ГҐГ«ГҐГ*ГЁГ© Г¤Г«Гї Г¤Г®ГЇГ®Г«Г*ГҐГ*ГЁГ©}
var k,i,j:integer;
    r:real;
begin
det1:=1.0;
for k:=2 to n do
   begin
     if d[k,k]=0 then per(n,k,d,p);
     det1:=znak(p)*det1*d[k,k];
     for j:=k+1 to n do
       begin
         r:=d[j,k]/d[k,k];
         for i:=k to n do
         d[j,i]:=d[j,i]-r*d[k,i];
       end;
   end;
end;
Procedure Peresch(n,p:integer;var b:Tmatr;det1:real;var e:Tmatr);{ГўГ»Г·ГЁГ±Г«ГҐГ*ГЁГҐ Г¤Г®ГЇГ®Г«Г*ГҐГ*ГЁГ©}
var i,m,k,j:integer;
    z:real;
    d,c:Tmatr;
begin
for i:=1 to n do
for m:=1 to n do
   begin
     for j:= 1 to n do {ГЇГҐГ°ГҐГ±ГІГ*Г*Г®ГўГЄГ* Г±ГІГ°Г®ГЄ}
       begin
         z:=b[i,j];
         for k:=i downto 2 do
         d[k,j]:=b[k-1,j];
         for k:=i+1 to n do
         d[k,j]:=b[k,j];
         d[1,j]:=z;
       end;
     for k:=1 to n do {ГЇГҐГ°ГҐГ±ГІГ*Г*Г®ГўГЄГ* Г±ГІГ®Г«ГЎГ¶Г®Гў}
       begin
         z:=d[k,m];
         for j:=m downto 2 do
         c[k,j]:=d[k,j-1];
         for j:=m+1 to n do
         c[k,j]:=d[k,j];
         c[k,1]:=z;
       end;
     Opr1(n,p,c,det1);{ГўГ»Г·ГЁГ±Г«ГҐГ*ГЁГҐ Г®ГЇГ°ГҐГ¤ГҐГ«ГЁГІГҐГ«ГҐГ©}
     e[i,m]:=det1*znak1(i,m);{ГўГ»Г·ГЁГ±Г«ГҐГ*ГЁГҐ Г¤Г®ГЇГ®Г«Г*ГҐГ*ГЁГ©}
   end;
end;
procedure Transp(a:Tmatr; n:integer;var at:Tmatr);{ГІГ°Г*Г*Г±ГЇГ®Г*ГЁГ°Г®ГўГ*Г*ГЁГҐ Г¬Г*ГІГ°ГЁГ¶Г»}
var k,j:integer;
begin
for k:= 1 to n do
for j:=1 to n do
at[k,j]:=a[j,k];
end;
Procedure Proverka(a,b:Tmatr; n:integer;var c:Tmatr);{ГЇГ°Г®ГўГҐГ°ГЄГ* - ГіГ¬Г*Г®Г¦ГҐГ*ГЁГҐ ГЇГ°ГїГ¬Г®Г© Г¬Г*ГІГ°ГЁГ¶Г» Г*Г* Г®ГЎГ°Г*ГІГ*ГіГѕ}
var k,j,i:integer;
    z:real;
begin
for k:=1 to n do
for j:=1 to n do
  begin
    c[k,j]:=0;
    for i:=1 to n do
      begin
        z:=a[i,j]*b[k,i];
        c[k,j]:=c[k,j]+z;
      end;
   end;
end;
procedure Vyvod(var a:Tmatr; n:integer);{ГўГ»ГўГ®Г¤ Г¬Г*ГІГ°ГЁГ¶ Г*Г* ГЅГЄГ°Г*Г*}
var k,j:integer;
begin
for k:=1 to n do
  begin
    for j:=1 to n do
    write(a[k,j],' ' );
    writeln;
  end;
end;
var k,j,i,p:integer;{n-Г°Г*Г§Г¬ГҐГ° Г¬Г*ГІГ°ГЁГ¶Г»,k-Г±Г·ГҐГІГ·ГЁГЄ ГЇГ® Г±ГІГ°Г®ГЄГ*Г¬,j-Г±Г·ГҐГІГ·ГЁГЄ ГЇГ® Г±ГІГ®Г«ГЎГ¶Г*Г¬,p-Г±Г·ГҐГІГ·ГЁГЄ ГЇГҐГ°ГҐГ±ГІГ*Г*Г®ГўГ®ГЄ}
    a,at,b,c,e:Tmatr;{a-ГЁГ±ГµГ®Г¤Г*Г*Гї, at-ГІГ°Г*Г*Г±ГЇГ®Г*ГЁГ°Г®ГўГ*Г*Г*Г*Гї, b-Г¬Г*ГІГ°ГЁГ¶Г* Г¤Г®ГЇГ®Г«Г*ГҐГ*ГЁГ©, e-Г®ГЎГ°Г*ГІГ*Г*Гї, Г±-ГЇГ°Г®ГўГҐГ°ГЄГ*}
    det,det1:real;{det-Г®ГЇГ°ГҐГ¤ГҐГ«ГЁГІГҐГ«Гј ГЁГ±ГµГ®Г¤Г*Г®Г© Г¬Г*ГІГ°ГЁГ¶Г»,det1-Г®ГЇГ°ГҐГ¤ГҐГ«ГЁГІГҐГ«ГЁ-Г¤Г®ГЇГ®Г«Г*ГҐГ*ГЁГї}
    f1:text;{ГЇГ°ГЁГ§Г*Г*ГЄ Г*ГҐГ±ГіГ№ГҐГ±ГІГўГ®ГўГ*Г*ГЁГї Г®ГЎГ°Г*ГІГ*Г®Г© Г¬Г*ГІГ°ГЁГ¶Г»}
    f:byte ;
begin
clrscr;
//Chtenie(a,n); {Г·ГЁГІГ*ГҐГ¬ Г¬Г*ГІГ°ГЁГ¶Гі Г± Г¤ГЁГ±ГЄГ*}
assign(f1,'input.txt');
 reset(f1);
  For i:=1 To 10 do {ГўГўГ®Г¤ Г¬Г*Г±Г±ГЁГўГ* ГЁГ§ ГґГ*Г©Г«Г*}
  for j:=1 to 10 do
    Read(f1, a[i,j]); {Г·ГІГҐГ*ГЁГҐ i-ГЈГ® ГЅГ«ГҐГ¬ГҐГ*ГІГ*}
 
    close(f1);
 
writeln('Г€Г±ГµГ®Г¤Г*Г*Гї Г¬Г*ГІГ°ГЁГ¶Г*:');
Vyvod(a,n);
Opr(n,p,a,det,f); {Г±Г·ГЁГІГ*ГҐГ¬ Г®ГЇГ°ГҐГ¤ГҐГ«ГЁГІГҐГ«Гј}
if f=1 then exit;
Transp(a,n,b);  {ГІГ°Г*Г*Г±ГЇГ®Г*ГЁГ°ГіГҐГ¬ Г¬Г*ГІГ°ГЁГ¶Гі}
Peresch(n,p,b,det1,e);  {Г±Г·ГЁГІГ*ГҐГ¬ Г¤Г®ГЇГ®Г«Г*ГҐГ*ГЁГї}
writeln('Obratnaja matrica:');
for k:=1 to n do
for j:=1 to n do
e[k,j]:=e[k,j]/det; {Г±Г®Г§Г¤Г*ГҐГ¬ Г®ГЎГ°Г*ГІГ*ГіГѕ Г¬Г*ГІГ°ГЁГ¶Гі}
Vyvod(e,n);
writeln('Proverka:');
Proverka(a,e,n,c);  {Г¤ГҐГ«Г*ГҐГ¬ ГЇГ°Г®ГўГҐГ°ГЄГі}
Vyvod(c,n);

Решение задачи: «Считать и вывести матрицу из файла»

Листинг программы

procedure readfile(var f1:textfile;var a:TMatr;var n:integer);
var i,j:integer;
begin
assign(f1,'input.txt');
reset(f1);
read(f1,n);
for i:=1 to n do
for j:=1 to n do
read(f1, a[i,j]);
closefile(f1);
end;

Объяснение кода листинга программы

В процедуре readfile объявлены три переменные: f1, a и n. Переменная f1 типа textfile, переменная a типа TMatr (предполагается, что это матрица), а переменная n типа integer (предполагается, что это число).
Переменная f1 присваивается значение 'input.txt'. Это означает, что файл будет считываться из указанного места.
Функция reset(f1) используется для сброса файла перед чтением.
Функция read(f1,n) используется для чтения n строк из файла в переменную a.
В цикле for i:=1 to n do происходит чтение каждой строки из файла и присваивание ее соответствующему элементу матрицы a.
После завершения чтения файла вызывается функция closefile(f1).
Код не содержит вложенных списков.