Процедуры в Паскале. конвертер единиц.

[Женька Good]

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

Вот моя программа: она не полная, несколько процедур, сократил...
Помогите разобраться, плз!

Program pt;
Uses crt;
Var x:real;
    r:real;
    n:integer;


Procedure menu;
Begin
Writeln('|-|---------------------|');
Writeln('| |        Menu         |');
Writeln('|-|---------------------|');
writeln('|#| Napravleniya obmena |');
Writeln('|-|---------------------|');
Writeln('|1|   strayk => stopki  |');
Writeln('|2|   strayk => litry   |');
Writeln('|3|    litry => stopki  |');
Writeln('|4| cheldron => litry   |');
Writeln('|5|    litry => pek     |');
Writeln('|6| cheldron => pek     |');
writeln('|7|      sak => litry   |');
Writeln('|8|      sak => strayk  |');
Writeln('|9|    litry => strayk  |');
Writeln('|-|---------------------|');
end;

{procedura1: Preobrazovanie strayk v stopki}
Procedure s_s(x:real; r:real; n:integer);
begin
If n=1 then
r:=(1280.46*x)/1;
If r>0 then
Writeln('Rezultat ==> ',r:5:2);
end;

{Procedura2: Preobrazovanie strayk v litry}
Procedure s_l(x:real; r:real; n:integer);
begin
  If n=2 then
  r:=(72.46*x)/1;
  If r>0 then
Writeln('Rezultat ==> ',r:5:2);
end;

begin
clrscr;
menu;
Write('Vvedite # napravleniya neobhodimogo konvertirovaniya ==> ');Readln(n);
Writeln;
Write('Vvedite kol-vo neobhodimoe perevesti ==> ');readln(x);
Writeln;
s_s(x,r,n);
s_l(x,r,n);
readln;
end.

[Serge_Bliznykov]

ну, например, попробуйте примерно так:

  clrscr;
  menu;
  repeat
     Write('Vvedite # napravleniya neobhodimogo konvertirovaniya ==> ');Readln(n);
      if (n<1) or (n>9) then WriteLn('Ошибка! Попробуйте ещё раз!');
  until (n>=1) or (n<=9);

[whatever]

begin
clrscr;
menu;
Write('Vvedite # napravleniya neobhodimogo konvertirovaniya ==> ');Readln(n);
Writeln;
Write('Vvedite kol-vo neobhodimoe perevesti ==> ');readln(x);
Writeln;
s_s(x,r,n);
s_l(x,r,n);
readln;
end.

Производишь конвертацию, независимо от пункта меню? Ладно, будем считать, что это из-за сокращения.

хотелось бы, чтобы если при вводе номера конвертирования который больше 9 и меньше 1, чтобы писало, мол неправильно введено число.

{Var x:real;
    r:real;
    n:integer;
                   }

Procedure menu;
Begin
Writeln('|-|---------------------|');
Writeln('| |        Menu         |');
Writeln('|-|---------------------|');
writeln('|#| Napravleniya obmena |');
Writeln('|-|---------------------|');
Writeln('|1|   strayk => stopki  |');
Writeln('|2|   strayk => litry   |');
Writeln('|3|    litry => stopki  |');
Writeln('|4| cheldron => litry   |');
Writeln('|5|    litry => pek     |');
Writeln('|6| cheldron => pek     |');
writeln('|7|      sak => litry   |');
Writeln('|8|      sak => strayk  |');
Writeln('|9|    litry => strayk  |');
Writeln('|-|---------------------|');
end;

{procedura1: Preobrazovanie strayk v stopki}
Procedure s_s(x:real; r:real; n:integer);
begin
If n=1 then
r:=(1280.46*x)/1;
If r>0 then
Writeln('Rezultat ==> ',r:5:2);
end;

{Procedura2: Preobrazovanie strayk v litry}
Procedure s_l(x:real; r:real; n:integer);
begin
  If n=2 then
  r:=(72.46*x)/1;
  If r>0 then
Writeln('Rezultat ==> ',r:5:2);
end;

procedure start;
var
  x,r:real;
  n:integer;
begin
//clrscr;
  Write('Vvedite # napravleniya neobhodimogo konvertirovaniya ==> ');Readln(n);
  Writeln;
  Write('Vvedite kol-vo neobhodimoe perevesti ==> ');readln(x);
  Writeln;
  if n in [1..9] then
    case n of
      1:s_s(x,r,n);
      2:s_l(x,r,n);
      //и так далее
    end
  else
    begin
      writeln('wrong number');
      start
    end;
end;

begin
  clrscr;
  menu;
  START;
  readln;
end.

P.S. упс, опоздал...