1)Чтобы передать массив в функцию нужно чтобы ВЫ обьявили тип этого массива одним словом.. тоесть в начале кода пишем
Code: Select all
Type MyArray = array[0..300] of Array[1..4] of Cardinal;
Code: Select all
procedure Tralyalya(i,u,o : integer ; GGG : MyArray);
Code: Select all
Procedure lol(i : integer; var y);
вот пример
Code: Select all
var m,n : integer;
procedure lol(i : integer; var y : integer);
begin
i:=100;
y:=100;
end;
begin
lol(m,n);
addtosystemjournal(inttostr(m));
addtosystemjournal(inttostr(n));
end.