Дана строка, состоящая из слов и чисел, отделенный друг от друга пробелами. сформировать 3 строки, одна из которых содержит только целые числа, встречающиеся в исходной строке, вторая-только вещественные числа, а третья-оставшиеся слова.

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.