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

[yong_programmist]

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

[yong_programmist]

Как организовать проверку строки ввода на буквы?
Например : нам нужно ввести возраст (n). Как сделать, чтобы если вводишь букву - то возврат идёт на начало ввода? Пока не введёшь число.
Пример
Введите ваш Возраст(от5 - до 80):%
If мы input "q,w,e,r,t,t,y,uy,u,iu,,o,,p,p,любой символ или их комбинация" then нас на %
Вот так понятно?

[AGPA]

Yo!  8) Как сделать очистку строки?  ???
А без gotoxy(n,m) можно?

[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.

[yong_programmist]

Через Readkey нельзя... Мне просто нужна збалансированая прога - или кругом ввод в текстовом режиме или Readkey  Я все зделал через ввод в текстовом режиме и переделывать не хочу. Но всеравно спасибо ;D Ivs. Может алгоритм где то пригодится ;)
Спросил у преподов - уже можно!!! ;D