{$mode objfpc}{$H-}{$R+}{$T+}{$Q+}{$V+}{$D+}{$X-}{$warnings on}
program composicion_02;
    // Componemos una línea con campos de ancho fijo.
    // Rellenamos el ancho de las cadenas con la función 
    // padright de la librería strutils
    
uses strutils;
const
    long_campo_01 = 3;
    long_campo_02 = 25;
var
    dorsal : real;
    nombre : string;
    pais : string;
    campo01, campo02, campo03: string;
    linea: string;
begin
    dorsal := 12;
    nombre := 'Juan Pérez';
    pais := 'ESP';

    str(dorsal:long_campo_01:0, campo01);  
    campo02 := padright(nombre, long_campo_02);
    campo03 := pais;

    linea := campo01 + campo02 + campo03;
    writeln(linea);
end.