еще нужно сделать блок-схему

[solisoul]

program z5v17;
uses crt;
var
s,r : string;
i : integer;
c : string[1];
begin
clrscr;
write('s=');
readln(s);
r:='';
for i:=1 to length(s) do
begin
c:=copy(s,i,1);
if pos(c,r)=0 then
r:=r+c;
end;
writeln('r=',r);
readln;
end.