[Aristarh Dark]

SetLength c тремя аргументами в первый раз вижу...

Исправил вот на такое - не падлает

Код:

program Gauss;

{$APPTYPE CONSOLE}

uses
  ExceptionLog,
  SysUtils,
  math,
  windows;

var n,i,j,m,p:integer;
    b:array of integer;
    x:array of integer;
    a:array of array of integer;
function Zetta(z: integer):integer;
begin
  If z>=p then Zetta:=z mod p;
  If z<0 then Zetta:=p-(abs(z) mod p);
end;
begin
  setconsoleoutputcp(1251);
  setconsolecp(1251);
  write('Введите чиcло p: ');readln(p);
  write('Введите число уравнений:  ');readln(m); m:=m-1;
  write('Введите число неизвестных: ');readln(n); n:=n-1;
  SetLength(a,m);
  for i := Low(a) to High(a) do
    SetLength(a[i],n);
  SetLength(b,m);
  SetLength(x,n);
  writeln;
  writeln('A*X = B');
  writeln;
  for i := Low(a) to High(a) do
    begin
      for j := Low(a[i]) to High(a[i]) do
        begin
          write('A[',i+1,',',j+1,'] = '); a[i,j]:=Random(10);
          a[i,j]:=Zetta(a[i,j]);
        end;
      write('B[',i+1,'] = '); b[i]:=Random(20);
      b[i]:=Zetta(b[i]);
    end;
  Readln;
end.