Переделать программы

program Magnum_Opus2;
 
 
uses crt;
 
var
m:array of array of real;
n:integer;
q,p,x:array of real;
 
begin
  writeln('Кол-во уравнений:');
  readln(n);
  setlength(m,n);
  setlength(q,n);
  setlength(p,n);
  setlength(x,n);
  for var i:=0 to n-1 do 
    setlength(m[i],n+1);
  writeln('Введите значения матрицы:');
  for var i:=0 to n-1 do
    for var j:=0 to n-1 do
      read(m[i,j]);
  writeln('Введите вектор-столбец');
  for var i:=0 to n-1 do
    read(m[i,n]);
  
  //Коэффициенты
  p[0]:=-m[0,1]/m[0,0];
  q[0]:=m[0,n]/m[0,0];
  for var i:=1 to n-2 do
  begin
    p[i]:= -m[i,i+1]/(m[i,i]+m[i,i-1]*p[i-1]);
    q[i]:= (m[i,n]-m[i,i-1]*q[i-1])/(m[i,i]+m[i,i-1]*p[i-1]);
  end;
  q[n-1]:= (m[n-1,n]-m[n-1,n-2]*q[n-2])/(m[n-1,n-1]+m[n-1,n-2]*p[n-2]);
  p[n-1]:= 0;
  
  //Корни
  x[n-1] := q[n-1];
  for var i := n-2 downto 0 do
  begin
    x[i]:= q[i] + p[i]*x[i+1];
  end;
  writeln;
  for var i:=0 to n-1 do
    writeln('x',i+1,' = ',x[i]:8:3);
    
  writeln;
  readln;
end.

program Magnum_Opus3;
 
uses crt;
 
const
e=1e-3; //Точность
 
var
m:array of array of real;
x0,x1:array of real;
n:integer;
eps:real;     //Оценка точности
mn:real:=0;   //Норма матрицы
xn:real;      //Норма корней
k:integer:=0; //Счётчик
 
begin
  clrscr;
  writeln('Кол-во уравнений: ');
  read(n);
  setLength(m,n);
  for var i:=0 to n-1 do
    setLength(m[i],n+1);
  setLength(x0,n);
  setLength(x1,n);
  writeln('Введите значения матрицы:');
  for var i:=0 to n-1 do
    for var j:=0 to n-1 do
      read(m[i,j]);
  writeln('Введите вектор-столбец');
  for var i:=0 to n-1 do
    read(m[i,n]);
  
  //Преобразование матрицы
  for var i:=0 to n-1 do
  begin
    var p:real:=m[i,i];
    for var j:=n downto 0 do
    begin
      if p=0 then break;
      if i<>j then m[i,j] /= -p
      else m[i,i]:=0;
      if j<>n then mn+=sqr(m[i,j]);
    end;
  end;
  for var i:=0 to n-1 do
    m[i,n]*=-1;
  mn:=sqrt(mn);
  writeln;
  if mn>1 then
        begin
      writeln ('Eвклидова норма матрицы: ',mn:8:3,' > 1 - Достаточное условие сходимости не выполнено.');
        exit;
     end
      else
     begin
      writeln ('Eвклидова норма матрицы: ',mn:8:3,' < 1 - Достаточное условие сходимости выполнено.');
   end;
  for var i:= 0 to n-1 do x0[i]:=m[i,n];
    
  repeat
    k+=1;
    for var i:= 0 to n-1 do //Цикл. рачёта корней
    begin
      x1[i]:=m[i,n];
      for var j:=n-1 downto 0 do
      begin
        x1[i]+=m[i,j]*x0[j];
      end;
    end;
    
    xn:=0; //Норма корней
    for var i:= 0 to n-1 do
      begin
      xn+=sqr(x0[i]-x1[i]);
      x0[i]:=x1[i];
      end;
    xn:=sqrt(xn);
    eps:=mn*xn/(1-mn);
  until eps<e;  
  writeln;
  
  //Вывод корней
  for var i:=0 to n-1 do
    writeln('x',i+1,' = ',x1[i]:8:3);
  
  writeln;
  writeln('Кол-во итераций: ',k);
  writeln;
  readln;
end.