Получить вектор из элементов матрицы - Turbo Pascal

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

Даны квадратная матрица A порядка n и вектор b с n элементами. Получить вектор: (A-E)b, где E - единичная матрица n.

Решение задачи: «Получить вектор из элементов матрицы»

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

                            uses
  crt;
 
const
  nmax = 20;
var
  a: array[1..nmax, 1..nmax] of integer;
  b, ab: array[1..nmax] of integer;
  m, n, i, j, k: byte;
begin
  clrscr;
  randomize;
  repeat
    write('ГђГ*Г§Г¬ГҐГ° Г¬Г*ГІГ°ГЁГ¶Г» ГЁ ГўГҐГЄГІГ®Г°Г* Г®ГІ  Г¤Г® ', nmax, '. n = ');
    readln(n);
  until n in [1..nmax];
  writeln('ГЊГ*ГІГ°ГЁГ¶Г* A:');
  for i := 1 to n do
  begin
    for j := 1 to n do
    begin
      a[i, j] := random(9) + 1;
      write(a[i, j]:4);
    end;
    writeln;
  end;
  writeln;
  writeln('ГЊГ*ГІГ°ГЁГ¶Г* A-E');
  for i := 1 to n do
  begin
    for j := 1 to n do
    begin
      if i = j then a[i, j]:=a[i, j]-1;
      write(a[i, j]:4);
    end;
    writeln;
  end;
  writeln('Г‚ГҐГЄГІГ®Г° Г±ГІГ®Г«ГЎГҐГ¶ B:');
  for i := 1 to n do
  begin
    b[i] := random(9) + 1;
    writeln(b[i]);
  end;
  writeln;
  writeln;
  for i := 1 to n do
  begin
    ab[i] := 0;
    for j := 1 to n do
      ab[i] := ab[i] + a[i, j] * b[j];
  end;
  writeln('Г‚ГҐГЄГІГ®Г° Ab=ГЂ*B:');
  for i := 1 to n do
    writeln(ab[i]);
  readln
end.
                        