Процедуры. Паскаль. Вывод данных

[Женька Good]

Есть задача, где необходимо конвертировать величины.
Задача получилась, а вывод результатов немного не работает...
Проблема в том, что мне необходимо, чтобы из 9 процедур выбиралась, одна в соответствии с заданным номером, а если задан номер с клавиатуры меньше 1 или больше 9, писалось, мол, ошибка, попробуйте ещё раз. На данный момент при вводе не корректного номера, просит ввести "сколько необходимо ввести", а должно "ошибка". а сейчас выдает ошибку только после того, как введешь количество необходимое перевести. Необходимо использовать "Сase of".
Это участок основной программы, где не получается выполнить указанные выше действия.

begin
clrscr;
menu;
Writeln;
textcolor(Magenta);
Write('Vvedite # napravleniya neobhodimogo konvertirovaniya ==> ');Readln(n);
Writeln;
If (n<1) and (n>9) then Write('Try one times more.')
else Write('Vvedite kol-vo neobhodimoe perevesti ==> ');readln(x);
Writeln;
   Case n of
  1 : s_s(x,r);
  2 : s_l(x,r);
  3 : l_s(x,r);
  4 : ch_l(x,r);
  5 : l_p(x,r);
  6 : ch_p(x,r);
  7 : c_l(x,r);
  8 : c_s(x,r);
  9 : l_st(x,r);
    else Write('Error!');
  end;
readln
end.

[vovk]

не выполнимое условие

If (n<1) or (n>9)

дословно если n меньше 1 и n больше 9.
нужно использовать не and а or то есть или
If (n<1) and (n>9)
и тогда условие будет
если n меньше 1 или n больше 9

Зы а да и ещё заключить в блок begin end всё после else

Write('Vvedite # napravleniya neobhodimogo konvertirovaniya ==> ');Readln(n);
Writeln;
If (n<1) or (n>9) then Write('Try one times more.')
else 
begin
Write('Vvedite kol-vo neobhodimoe perevesti ==> ');readln(x);
Writeln;
   Case n of
  1 : s_s(x,r);
  2 : s_l(x,r);
  3 : l_s(x,r);
  4 : ch_l(x,r);
  5 : l_p(x,r);
  6 : ch_p(x,r);
  7 : c_l(x,r);
  8 : c_s(x,r);
  9 : l_st(x,r);
    else Write('Error!');
  end;
end;
readln
end.

[whatever]

begin
clrscr;
menu;
Writeln;
textcolor(Magenta);
Write('Vvedite # napravleniya neobhodimogo konvertirovaniya ==> ');Readln(n);
Writeln;
if (n<1) or (n>9) then
  repeat
      Write('Try one times more.');
      readln(n);
  until n in [1..9] ;

Write('Vvedite kol-vo neobhodimoe perevesti ==> ');readln(x);
Writeln;
   Case n of
  1 : s_s(x,r);
  2 : s_l(x,r);
  3 : l_s(x,r);
  4 : ch_l(x,r);
  5 : l_p(x,r);
  6 : ch_p(x,r);
  7 : c_l(x,r);
  8 : c_s(x,r);
  9 : l_st(x,r);
    else Write('Error!');
  end;
readln
end.

P.S. vovk, У тебя в коде после "If (n<1) and (n>9) then Write('Try one times more.')" прога сразу уйдет на финайльный readln, "попробовать еще один раз" уже не получится.

[vovk]

Да действительно whatever прав , если нужно дождаться правильного ответа то будем спрашивать до посинения)), только в таком случае желательно сообщать пользователю, что от него ждут)) Хотя бы диапазон возможных значений обозначить.))

[whatever]

На сколько я помню, у него процедура menu это делает в самом начале

[vovk]

P.S. vovk, У тебя в коде после "If (n<1) and (n>9) then Write('Try one times more.')" прога сразу уйдет на финайльный readln, "попробовать еще один раз" уже не получится.

Ну да, я понял ТС буквально, ещё раз значит перезапусти и пробуй))
Действительно если бы в сообщении указывалось о неообходимости повторить ввод используя цифры от 1 до 9, я бы подумал что требуется дождатся ввода правильного значения.
А так подумал об этом только после вашего сообщения.