procedure push_back var arr array of array of integer const val array

 1
 2
 3
 4
 5
 6
 7
 8
 9
10
11
12
13
14
15
16
17
procedure push_back(var arr: array of array of integer; const val: array of integer);
var len: integer;
arr2: array of integer;
begin
len := Length(arr);
arr2 := new integer[2];
arr2 := val;
SetLength(arr, len + 1);
arr[len]:= arr2;
writeln(arr[len]);
end;