Паскаль Множества.

[Айдар123]

Помогите решить задачу!
Дан текст. Выяснить, верно ли, что среди символа текста имеются все буквы, входящие в слово 'шина'.

[Stilet]

type tsh=set of 'а'..'я';
const tetalon:tsh=['ш','и','н','а'];
      s='машина-шипшина';
var shh:tsh;i:integer;
begin
 for i:=1 to Length(s) do if s[i] in ['ш','и','н','а'] then include(shh,s[i]);
 if  (tetalon-shh)=[] then write('yes') else write('no');
 readln;
  { TODO -oUser -cConsole Main : Insert code here }
end.

Подойдет?

[Айдар123]

спасибо! конечно,проверил работает.

[Айдар123]

программа не работает. я ошибся

[temaps]

Буквы потому что русские. В delphi 7 скорее всего заработает. С 2009 дельфи юникод начал поддерживаться.
Самому интересно стало. В XE2 у меня заработало так:

program Project1;

{$APPTYPE CONSOLE}

{$R *.res}

uses
  System.SysUtils,windows;
var
c:ansichar;
s:ansistring;
m:set of ansichar;
begin
  SetConsoleCP(1251);
  SetConsoleOutputCP(1251);
  write('Введите строку: ');readln(s);
  m:=['ш','и','н','а'];
  for c in s do m:=m-[c];
  if  m=[] then write('yes') else write('no');
  readln;
end.

В фрипаскале так заработало:

var
c:ansichar;
s:ansistring;
m:set of ansichar;
begin
  write('Введите строку: ');readln(s);
  m:=['ш','и','н','а'];
  for c in s do m:=m-[c];
  if  m=[] then write('yes') else write('no');
  readln;
end.