Строки, Pascal. Нужна помощь

[Only]

Строки, Pascal. Нужна помощь

помогите написать программу, по заданию:

1. Дана строка символов. Выяснить имеются ли в данной строке рядом стоящие запятая и тире.

 

[Only]

Блин, вот:
Дана строка символов. Выяснить имеются ли в данной строке рядом стоящие запятая и тире.

 

[Vladimir_S]

Дана строка символов. Выяснить, имеются ли в данной строке рядом стоящие запятая и тире.

Var
 S:String;
 i:Byte;
 b:boolean;
Begin
 Writeln('Enter the string:');
 Readln(S);
 b:=false;
 For i:=2 to Length(S) do
  if ((S[i-1]='-') and (S[i]=',')) or ((S[i-1]=',') and (S[i]='-')) then b:=true;
 Writeln(b);
 Readln
End.

 

[interacia]

Блин вот:

И вас с масленицей

А

в натуре

это такой тип данных

 

[Only]

Спасибо, выручили.