Declaración: procedure Str(Numero [: Ancho [: Decimales ]]; var Texto:string);
function EnteroACadena(numero: Longint): string;
var
texto: string[20];
begin
Str(numero, texto);
EnteroACadena := texto;
end;
begin
Writeln(EnteroACadena(-5322));
Readln;
end.