Помогите с Паскалем!! задача

Слова могут состоять только из латинских строчных символов:

var
    a: array ['a'..'z'] of integer;
    s: string;
    c: char;
    k, b, n: integer;
    i, o: boolean;
begin
    write('string? ');
    readln(s);
    s := s + ' ';
    write('output: ');
    for k := 1 to length(s) do begin
        if not i and (s[k] in ['a'..'z']) then begin
            i := true;
            b := k;
            inc(a[s[k]]);
        end
        else if i and (s[k] in [' ', ',']) then begin
            i := false;
            o := true;
            for c := 'a' to 'z' do
                if a[c] > 1 then begin
                    o := false;
                    break;
                end;
            for c := 'a' to 'z' do a[c] := 0;
            if o then begin
                write(' ');
                for n := b to k - 1 do write(s[n]);
            end;
        end
        else
            inc(a[s[k]]);
        write(s[k]);
    end;
end.

делишь строку на слова. просматриваешь каждое слово на повторяемость символов и выводишь их

Да без проблем сделаю, пишите.

50 рублей..