Как использовать глобальную таблицу в процедуре?

[Gandfil]

Здраствуйте. Решил написать текстовую игру. Проблема такая:
Есть таблица monster of integer , обьявлена так:

program Stalk;

{$APPTYPE CONSOLE}

Uses SysUtils, EsConsole;
var s: array [1 ..8] of integer; i, boi, zdorov, m, a, y, r, l: integer; opis: array [1 ..8] of string [15];
oryz: array [1 ..5] of string [15]; cena: array [1 ..5] of integer; yron: array [1 ..5] of integer;
probel: string[20]; monster: array [1 ..5,1 ..5] of integer;

В самой программе дал значение таблице. Вот так:

monster[1, 1]:= 3;monster[1, 2]:= 7;monster[1, 3]:= 15;monster[1, 4]:= 10;monster[1, 5]:= 12;
monster[2, 1]:= 15;monster[2, 2]:= 30;monster[2, 3]:= 80;monster[2, 4]:= 60;monster[2, 5]:= 50;
monster[3, 1]:= 4;monster[3, 2]:= 4;monster[3, 3]:= 1;monster[3, 4]:= 6;monster[3, 5]:= 9;
monster[4, 1]:= 2;monster[4, 2]:= 2;monster[4, 3]:= 1;monster[4, 4]:= 0;monster[4, 5]:= 0;
monster[5, 1]:= 1;monster[5, 2]:= 2;monster[5, 3]:= 2;monster[5, 4]:= 1;monster[5, 5]:= 1;

Потом в процедуре :

procedure atack_stalk;
begin
if boi = 1 then l:= s[2]-3
else l:= s[2];
if boi = 5 then l:= s[2]-3
else l:= s[2];
a:= random (monster[3, boi]+l+s[4]);
if a < s[5] then
begin
  r:= (l+s[4])-monster[3, boi];
  y:= s[6];
  if a <= r then
               begin y:= y*2;
                     writeln ('Вы нанесли крит урон :',y);
               end
             else  writeln ('Вы нанесли урон :',y);
end
            else
             begin
              writeln ('Вы промазали'); y:= 0;
             end;
monster[2, boi]:= monster[2, boi]-y;
end;

Возникает куча ошибок двух видов:
1. [Ошибка] Project2.dpr(70): Incompatible types На строки if boi = 1 then l:= s[2]-3 и if boi = 5 then l:= s[2]-3.
2. [Ошибка] Project2.dpr(74): Incompatible types: 'Integer' and 'procedure, untyped pointer or untyped parameter' На строки где в процедуре указанны переменный таблицы. Такие как :monster[2, boi]:= monster[2, boi]-y; r:= (l+s[4])-monster[3, boi]; и т.д.
Как использовать глобальную таблицу в процедуре? Заранее спасибо за ответ.

[Пепел Феникса]

в такой мешанине кода, возьмите и проверьте типы, вам же компилятор говорит что и где.

[Gandfil]

Я даже не знаю на что он намекает. Деления в коде не вообще. Все переменные, таблицы, и массивы : либо integer, либо string.

monster: array [1 ..5,1 ..5] of integer;

Разве процедура не переносит integer?
Или здесь:

monster[2, boi]:= monster[2, boi]-y;

Ну вот на что он здесь может ругаться?
Или тип ты имеешь ввиду не интежер?

[veniside]

пост, наглядно показывающий вред от глобальных переменных. Приведите весь код, походу, у вас есть ещё процедуры с именами l, y и т.д.

[Gandfil]

Спасибо большое! Попал в ловушку собственной логики: процедуру отвечающую за бои назвал как переменную порядка боя. Терь еще есть несколько багов, но я их исправлю.