Схема,помогите

[hundert]

Задание: Дана строка. С помощью очереди вывести в порядке следования сначала цифры, затем знаки припенания, и в конце все остальные символы строки

Решение: Vars:string; iord; begin writeln('vesti stroka'); readln ; for i:=1 to length do if s in(0..9) then write ; for i:=1 to length do if s in(тут знаки препинания типа перечеслить) then write for i:=1 to length do if not in ['0'..'9', тут тоже знаки] then () close end.

что не так подскажите?

[Тролль]

Проще перечислить, что так. Ошибок даже навскидку, больше десятка.

[hundert]

Эм,а написать можешь как правильно будет?

[Тролль]

Непонятно, причем тут очередь.

[hundert]

ну а как тогда.. :)

[Тролль]

var s:string; i:integer; begin readln(s); for i:=1 to length(s) do if s[i]in['0'..'9'] then write(s[i]); for i:=1 to length(s) do if s[i]in['!'..'/',':'..'?'] then write(s[i]); for i:=1 to length(s) do if not(s[i]in['0'..'9','!'..'/',':'..'?'])then write(s[i]);writeln; readlnend. 

[hundert]

Спасибо=)