определение символов в строке, интересуют варианты Опции

[Евгений]

Доброго всем времени суток! В первых строках хотелось бы поблагодарить всех, кто помог мне сдать сессию за 1-ый семестр.
Теперь по сути.. Хотелось бы посмотреть возможные варианты выполнения вот этого задания:
Определить, имеются ли в тексте все буквы, входящие в слово «шина».

Вот мое очередное извращение)):

program stroki;
var
  s: string;
  i,a,b,c,d: byte;
begin
 write ('введите текст  ');
 readln(s);
  for i:= 1 to length(s) do
   begin
     if s[i]='ш' then a:= a+1;
     if s[i]='и' then b:= b+1;
     if s[i]='н' then c:= c+1;
     if s[i]='а' then d:= d+1;
   end;
   if (a>=1) and (b>=1) and (c>=1) and (d>=1) then
       writeln ('в тексте имеются все буквы слова "шина"   ')
     else
       writeln ('в тексте НЕ имеются все буквы слова "шина"   ');
 readln;
end.

Понимаю что написано коряво, поэтому и предлагаю вам подсказать мне более правильное решение.

Сообщение отредактировано: Евгений - 15.01.2011 21:01