задача про строки и файл с записями Опции

[Zeon]

Не могу с ними разобраться!!!

Сообщение отредактировано: Zeon - 18.05.2004 8:18

[BlackShadow]

Ну малёк обшыбсю:

Код

Const
Delimeters:Set Of Char = [' ',',',';','.','!','?'];
Letters:Array[1..20] Of Char = ('А','Е','Ё','И','О','У','Ы','Э','Ю','Я','а','е','ё','и','о','г','л','н','о','п');
s:String = 'Вок такой вот текст мы взяли для проверки';
Var
i,j,k:Integer;
Begin
i:=Length(s);
While i>0 Do
  If s[i] In Delimeters Then
    Break
  Else
    Dec(i);
For j:=1 To 10 Do
  For k:=i+1 To Length(s) Do
    If (s[k] = Letters[j]) Or (s[k] = Letters[j + 10]) Then
      Write(s[k]);
WriteLn
End.