begin
comment search of symbol in a string;
	string (30) s;
	string (1) ch;
	integer n;
	n := 30;
	s := "Scenic Landscapes";
	write(s);
	write("symbol=?"); readon(ch);
	for n:=0 until 29 do
		if(ch = s(n|1)) then write (ch);
end.