Ошибка программы с диагональной матрицей и множеством функций

program DiagonalMatrix;
const
  nmax = 20;
type
arr=array of array of integer;
procedure printout (s: arr);
  var
  a: array[1..nmax, 1..nmax] of integer;
  b: array[1..nmax*nmax] of integer;
  n,i,j,t,x,k,k1: integer;
  found: boolean;
  begin
   for i:= 0 to high(s) do
    begin
          for j:= 0 to high(s[i]) do
          begin
            Write(s[i,j]);
            Write(' ');
    end;
    Writeln();
  end;
  end;
 
Function g:arr;
  var
    d,i,j: integer;
    s: arr;
  begin
    Writeln('d:');
    Readln(d);
    SetLength(s, d);
  for i:= 0 to d-1 do
  begin
    SetLength(s[i], d);
    for j:= 0 to d-1 do
          begin
    if j=i then
        begin
            s[i,j]:=random(76)-30;
      write(s[i,j]:4);
        end
        else begin
            s[i,j]:=0;
        end;
    writeln;
    end;
      g:=s;
      end;
  begin
  printout(g);
  readln;     
    end;
    writeln('Vector:');
  for i:=1 to n do
    for j:=1 to n do
    begin
      b[(i-1)*n+j]:=a[i,j];
      write(b[(i-1)*n+j],' ');
    end;
  writeln;
  found:=false;
  write('Please enter the name of element for linear search: ');
  readln(x);
  for i:=1 to n*n do
    if b[i]=x then begin
       found:=true;
       k:=i;
    end;
  if found then writeln('The founded element on the ',k,' position')
    else writeln('This matrix does not have this element');
    writeln;
  for i:=2 to n*n do
    for j:=n*n downto i do
      if b[j]<b[j-1] then
      begin
        t:=b[j];
        b[j]:=b[j-1];
        b[j-1]:=t;
        inc(k1);
      end;
     writeln;
  writeln('Linear Search Algorithm: count of comparisons = ',k);
  writeln('                         count of swaps = ',k1);
 readln;
  writeln('Sorted Vector:');
  for i:=1 to n*n do write(b[i]:4);
  readln;
end;
end.

program DiagonalMatrix;
 
const
  nmax = 20;
 
type
  arr = array of array of integer;
 
var
  n, i, j, t, x, k, k1: integer;
  found: boolean;
 
procedure printout(s: arr);
var
  i, j: integer;
begin
  for i := 0 to high(s) do
  begin
    for j := 0 to high(s[i]) do
    begin
      Write(s[i, j]);
      Write(' ');
    end;
    Writeln();
  end;
end;
 
function g: arr;
var
  i, j: integer;
  s: arr;
begin
  Write('size: '); Readln(n);
  SetLength(s, n);
  for i := 0 to n - 1 do
  begin
    SetLength(s[i], n);
    for j := 0 to n - 1 do
    begin
      if j = i then
        s[i, j] := random(76) - 30
      else 
        s[i, j] := 0;
    end;
    g := s;
  end;
end;
 
var 
  a : arr;
  b : array of integer;
 
begin
  a := g();
  printout(a);
  readln;     
  writeln('Vector:');
  setlength(b, sqr(n));
  for i := 0 to pred(n) do
    for j := 0 to pred(n) do
    begin
      b[i * n + j] := a[i, j];
      write(b[i * n + j]:4);
    end;
  writeln;
  found := false;
  write('Please enter the name of element for linear search: ');
  readln(x);
  for i := 0 to pred(sqr(n)) do
    if b[i] = x then begin
      found := true;
      k := i;
    end;
  if found then writeln('The founded element on the ', k, ' position')
  else writeln('This matrix does not have this element');
  writeln;
  for i := 0 to pred(sqr(n)) do
    for j := pred(sqr(n)) downto i + 1 do
      if b[j] < b[j - 1] then
      begin
        t := b[j];
        b[j] := b[j - 1];
        b[j - 1] := t;
        inc(k1);
      end;
  writeln;
  writeln('Linear Search Algorithm: count of comparisons = ', k);
  writeln('                         count of swaps = ', k1);
  readln;
  writeln('Sorted Vector:');
  for i := 0 to Pred(sqr(n)) do write(b[i]:4);
  readln;
end.