Обобщенные подпрограммы

procedure Println<T>(a: array of T);
begin
  for var i:=0 to a.Length - 1 do
    write(a[i],' ');
  writeln;  
end;
 
var 
  a: array of integer := (1,3,5,7,9);
  ss: array of string := ('Иванов','Петров','Сидоров','Попов');
 
begin
  Println(a);
  Println(ss);
end.