множества

[@lex]

Исправьте ошибки в программе
условие: есть последовательность символов. Нужно построить и напечатать множество в состав которого входят элементы последовательности - знаки операций отношений.

Код: Выделить всё

uses crt;
var
s:string;
n,k,i:integer;
c:set of '<'..'>';
begin
writeln('vv text');
readln (s);
n:=length(s);
c:=[];
for i:=1 to n do
if s[i] in ['<'..'>']then
c:=c+s[i];
writeln(c);
readln;
end.

[Хыиуду]

writeln по отношению к множеству не работает. Лучше так: for ch:='<' to '>' do if ch in c then write(ch, ' ');
ch - переменная типа char