Задача на текстовый тип данных.

[Fedos]

User cet вообще не нужен,забудте его.
Это следует из того что if st[ i ][1]=m or st[ i ][1]=M

[Fedos]

m это не переменная это буква.Посмотри я исправил надо было написать m:char;

[B_N]

Милейший, так напишите исправленное, зачем гадать, что там у Вас где, а "буквы" обычно берут в кавычки, иначе это идентификатор.

------------------

m это не переменная это буква.Посмотри я исправил надо было написать m:char;

Ха. Вот как раз теперь это переменная типа char

[Alter]

Вот правильный вариант, Необращайте внимание на две каракули(это так в досовской кодировке русские буквы выглядят):

Program VYZ;
Var Mas :Array[0..6] of string;
    I,Bx :Integer;
Begin
 Writeln('Vvedite nazvaniya Vyzov...');
 For I:=0 To 6 Do
 begin
  Write(I+1, ') ');
  Readln( Mas[I] );
 end;

 Writeln;
 Writeln('OTVET:');
 Writeln;

 Bx := 0;

 For I:=0 To 6 Do
  If Mas[I][1] In ['m', 'M',  '¬', 'Њ'] Then
  begin
   inc( Bx );
   Writeln( Bx, ') ', Mas[I], ';' );
  end;
 Readln;
end.

[B_N]

Ну и в чём дело? Сейчас она работает:

Vvedite nazvaniya Vyzov...
1) АБВГД
2) ABCDE
3) М123456
4) m8798u
5) мск123456
6) Z898989
7) hjhjhj

OTVET:

1) М123456;
2) m8798u;
3) мск123456;

[Fedos]

Спасибо огромное!!!Всё работает!!=)