Пробема объявления массива в заголовке процедуры.

[mmx358]

procedure Draw(sx,sy:smallint;matrix:array [1..2, 1..4] of smallint);
const
  block='[]';
  clear='  ';
var
  i,f:smallint;
begin
  for i:=1 to 2 do
    begin
      for f:=1 to 4 do
        begin
          if matrix[i,f] = 0
            then write(clear);
          else write(block);
        end;
    end;
end;

Всем привет!
Возникла такая проблема, что при таком (см. код) объявлении массива компилер выдаёт ошибку "OF" expected but "[" found.
Если убрать диапазон, то всё как бы супер, но в строке
if matrix[i,f] = 0
он тычет в "f" и говорит, что это illegal qualifier.
Помогите, пожалуйста, решить эту проблему.
Буду благодарен. Очень.

[__STDC__]

используйте type... так нельзя передавать параметры.. или так

type
   arr = array [1..2, 1..4] of smallint;
...
procedure ...(...; x:arr);
...

или так

procedure ...(...; x:array of array of type);

***
Только второй вариант в процедуру по-моему тоже нельзя
но можно как-нибудь так тогда

type
	x = array of integer;
	
procedure ...(...; x:array of x);

[mmx358]

__STDC__, я кое-что не добавил сюда. Подумал, что не имеет значения.
Эти массивы объявляются в главной программе и передаются процедуре

const
  I : array [1..2, 1..4] of smallint =
    ((0,0,0,0), (1,1,1,1));
  J : array [1..2, 1..4] of smallint =
    ((0,1,0,0), (0,1,1,1));

[__STDC__]

оО

type
	x = array[1..2,1..4] of integer;

const
  I : x =
    ((0,0,0,0), (1,1,1,1));
  J : x =
    ((0,1,0,0), (0,1,1,1));

	
procedure ...(...:x);
...

[mmx358]

__STDC__, спасибо большое! Это всё же мой первый тетрис... И вообще первая программа... Ещё раз спасибо!

[__STDC__]

ноу праблем =) ничего особенного я не сделал)

[mmx358]

Эх, теперь ещё одна лажа.

type
  figure = array [1..2, 1..4] of smallint;
const
  I : figure = ((0,0,0,0), (1,1,1,1));
  J : figure = ((0,1,0,0), (0,1,1,1));

procedure Draw(sx,sy:smallint; matrix : figure);
const
  block='[]';
  clear='  ';
var
  i,f:smallint;
begin
  for i:=1 to 2 do
    begin
      for f:=1 to 4 do
        begin
          if matrix[i,f] = 0
            then write(clear);
          else write(block);
        end;
    end;
end;

Теперь он говорит, что Identifier not found "figure".
В чём я теперь провинился перед ним?

procedure Draw(sx,sy:smallint; matrix : figure);

[__STDC__]

у вас там ; перед else лишняя..

            then write(clear);
          else write(block);

насчет той ошибки не знаю, у меня все работает

***
кстати, зачем вы используете типизированные константы?

[mmx358]

Отбой тревоги! Я объявлял типы и переменные после объявления процедур


В константы я вписываю матрицу фигурки

[Doholyan]

по моему мнению проседура вообще работать не будет.
Что это за тип такой "smallint"?
const очень интересно обьявлена....
и где обрашения к перемменным sx,sy:

или я вообще отупел...че то не пойму)))