Кассир по продажам билетов в кинотеатр

1. Текстовый процессор входит в состав прикладного программного обеспечения.
2. Клавиатор является разновидностью клавиатурного тренажёра.
3. Редактирование предшествует форматированию.
4.  Растровой графический редактор является элементом множества графический редактор.
5. Paint является разновидностью растрового графического редактора
6. Windows XP является разновидностью операционной системы
7.  Материнская плата входит в состав системного блока
8. Струйный принтер является элементом множества принтер

Var
    fullstr,s,s_int,s_rl,s_str: string;
    int: integer;
    rl: real;
    space,err: integer;
begin
 writeln('String:');
    readln(fullstr);

 while fullstr[1] = ' ' do
        delete(fullstr,1,1);
    while fullstr[length(fullstr)] = ' ' do
        delete(fullstr,length(fullstr),1);
    while pos('  ',fullstr) <> 0 do
        delete(fullstr,pos('  ',fullstr),1);

 s_int := '';
    s_rl  := '';
    s_str := '';
    while fullstr <> '' do begin
        space := pos(' ',fullstr);
        if space = 0 then
            space := length(fullstr) + 1;
        s := copy(fullstr,1,space-1);
        val(s,int,err);
        if err = 0 then
            s_int := s_int + s + ' '
        else begin
            val(s,rl,err);
            if err = 0 then
                s_rl := s_rl + s + ' '
            else
                s_str := s_str + s + ' ';
        end;
        delete(fullstr,1,space);
    end;

 writeln('Integers: ',s_int);
    writeln('Real: ',s_rl);
    writeln('Words: ',s_str);

readln
end.