procedure Str(X [: Width [: Decimals ]]; var S:string);

function IntToStr(I: Longint): String;
var S: string[11];
begin
  Str(I, S); { <--- Вот и вызов Str }
  IntToStr := S;
end;

begin
  Writeln(IntToStr(-5322));
end.