[Aristarh Dark]

Код:

type
  TIntArray = array [1..100] of integer;
  TCharArray = array [1..100] of char;

procedure someproc(intarr:TIntArray; var charvararr:TCharArray);
begin
  //code here
end;