Agpa&Yong_programist задают вопросы Опции

[yong_programmist]

Как  зделать ограничение на ввод символов в паскале
напимер "пол(м/ж): м"ну, чтобы ползователь не мог ввести  больше одного символа в строку ввода. ???

[Ivs]

вы уже, блин, меня запутали......
есть хорошая функция readkey которая считывает символ с клавиатуры но не выводит его.
я тут что-то написал незнаю подойдет ли

program for_Young;
uses crt;
var
  ch,en:char;
begin
  ClrScr;
  write('Введите пол (м/ж) -> ');
  repeat
                     ch:=readkey;
  until ch in ['м','М','ж','Ж'];
  write(ch);
  repeat
                     en:=readkey;
  until en=#13;
end.