Pascal nha ạ,em đang cần gấp nha,cảm ơn vì đã sự giúp đỡ

`* Pascal:`

`" "`

program arranger_les_mots;
uses crt;
var S : string;
    indi, vari, troi : integer;
    chaine : array [1 .. 255] of string;
    ouv, fer : text;
    
begin
    clrscr;
    assign(ouv, 'TRIEUPHU.INP');
    reset(ouv);
    
    assign(fer, 'TRIEUPHU.OUT');
    rewrite(fer);
    
    readln(ouv, S);
    S := ' ' + S;
    
    vari := 0;
    for indi := 1 to length(S) do
        if S[indi] = ' ' then
        begin
            vari := vari + 1;
            chaine[vari] := '';
        end
        else
            chaine[vari] := chaine[vari] + S[indi];
            
    for indi := 1 to vari - 1 do
        for troi := indi + 1 to vari do
            if chaine[indi] > chaine[troi] then
            begin
                S := chaine[indi];
                chaine[indi] := chaine[troi];
                chaine[troi] := S;
            end;
            
    writeln(fer, vari);
    for indi := 1 to vari do 
        write(fer, chaine[indi], ' ');
        
    close(ouv);
    close(fer);
end.