Перегрузка имен подпрограмм

procedure Print(i: integer);
begin
  writeln('Значение параметра целого типа = ',i);
end;
 
procedure Print(r: real);
begin
  writeln('Значение параметра вещественного типа = ',r);
end;
 
begin
  Print(2.5);
  Print(777);
end.