Почему программа не видит массив?

uses GraphABC;
 
Type IntArr = array of integer;
 
var 
  city, firstcity, k, l : integer;
  card : array of integer;
  
  
//заполнение карты
procedure RandFull(var mas : IntArr; n : integer);
var i, j : integer;
Begin
SetLength(mas, n);
  for i := 0 to n-1 do
    for j := 0 to n-1 do
        begin
          if i = j then mas[i][j] := 0
          else
          begin
             mas[i][j] := random (20);
             mas[j][i] := mas[i][j];
          end;
          
        end;
End;
 
 
//вывод карты на экран
procedure DispCard(var a : array of integer; n : integer);
var i, j : integer;
Begin
  for i := 1 to n do
  begin
    for j := 1 to n do
      write (' ', a[i][j]);       
  end;
  writeln;
 
End;
 
//procedure calcpath (a : array of integer; n : integer; start : integer);
//var i, j : integer;
//Begin
 
//End;
 
BEGIN
  writeln ('Выберите количество городов:');
  readln (city);
  
  RandFull (card, city);
  DispCard (card, city);
  
  writeln ('С какого города начнем путь?');
  readln (firstcity);
  
  //calcpath (card, city, firstcity);
  
  
  
 
  
 
END.

IntArr = array of integer;

mas[i][j]

mas[i]

mas[i, j]

Type IntArr = array of integer;

var 
  city, firstcity, k, l : integer;
  card : array of integer;

  var city := ReadLnInteger('Введите количество городов:');

  var card := MatrRandomInteger(city, city, 0, 20);
  for var d := 0 to city-1 do
    if card[d, d] <> 0 then card[d, d] := 0;
  card.Println;

uses GraphABC;
 
/// вывод карты на экран
procedure DispCard(var card : array [,] of integer; city : integer);
const Left = 250; Top = 100;
begin
  var (W, H) := (TextWidth('111'), TextHeight('111'));
  for var row := 0 to city-1 do
    for var col := 0 to city-1 do
      DrawTextCentered(Left+W*row, Top+H*col, Left+W*row+W, Top+H*col+H, card[Row, Col]);
end;
 
begin
  var city := ReadLnInteger('Введите количество городов:'); WriteLn(city);
  var card := MatrRandomInteger(city, city, 0, 20);
  for var d := 0 to city-1 do card[d, d] := 0;
  card.Println;
  DispCard(card, city);
end.

begin
  [операторы]
end.