Изменить программу-обратную матрицу в Паскале,чтобы работала корректно

[Novenkaja]

Добрый вечер.

Есть вот код,надо сделать так,чтобы он работал и делала всё корректно.
Так продектовал преподователь условие задания

program apgriezta_matrica;
type tips=array [1..10,1..10] of real;
     tips1=array [1..10,1..20] of real;
var i,j,k,n,m1:integer;
    s,z:real;
    m:tips;
    a:tips1;
begin
     readln (n);
     for i:=1 to n do
         for k:=1 to n do readln (m[i,k]);
     m1:=n*2;
     s:=0;
     for i:=1 to n do
         for j:=1 to m1 do
             if j<=n then a[i,j]:=m[i,j]
                     else if j=n+1 then a[i,j]:=1
                                   else a[i,j]:=0;
     for i:=1 to n do begin
                      k:=i;
                      while (a[i,k]=0) and (k<=n) do
                            begin
                            k:=k+1;
                            if k>=n then begin
                                        writeln ('Нет решения');
                                        halt (1)
                                        end
                            end;
                      if k<>i then for j:=1 to m1 do
                         begin
                         z:=a[k,j];
                         a[k,j]:=a[i,j];
                         a[i,j]:=z
                         end;
                      for j:=m1 downto i do a[i,j]:=a[i,j]/a[i,i];
                      for k:=1 to n do
                          if k<>i then for j:=m1 downto i do
                             a[k,j]:=a[k,j]-a[i,j]*a[k,i]
                      end;
     for i:=1 to n do
         for j:=1 to n do m[i,j]:=a[i,j+n];
     for i:=1 to n do begin
                      for j:=1 to n do write (m[i,j]);
                      writeln
                      end;
     readln
end.