Не получается вставить цикл. Опции

[garry_m]

Привет всем! Я недавно начал работать с Паскалем и у меня возникли некоторые вопросы... Вы не могли бы подсказать как правильно поступить?
Допустим есть такой код:

uses crt;
var
  x:integer;
  y:integer;
  z:integer;
begin
  clrscr;
      
    write('Vvedite X: ');
    readln(x);
    write('Vvedite Y: ');
    readln(y);
    write('Vvedite Z: ');
    readln(z);

    if(x=y) and (y=z) then writeln('X=0 Y=0 Z=0');
    if(x<y) and (x<z) then writeln('X=0',' Y=',y,' Z=',z);
    if(y<x) and (y<z) then writeln('X=',x,' Y=0 ','Z=',z);
    if(z<x) and (z<y) then writeln('X=',x,' Y=',y,' Z=0');

    write('Nazhmite Enter...');
    readln;
end.

Как сделать так, при вводе X,Y,Z не цифр, а СИМВОЛОВ программа не выкидывала меня в редактор с ошибкой "Invalid numeric format", а скажем выдавала сообщение типа ERROR и предлагала ввести ввести данные заново? Заранее спасибо!

Сообщение отредактировано: volvo - 5.11.2006 20:42

[garry_m]

Тут составил еще одну программку... никто не подскажет как вставить цикл? Т. е. требуется чтобы после того, как программа закончит все действия, задавался вопрос типа: "Хотите ли вы попробовать еще? (Y/N)". Соответственно, если "Y", то опять ввод данных по новой, а если "N", то выход в редактор. Сам пробовал - ничего не вышло...

Код:

uses crt;
  var
  N,k:integer;
  ok:boolean;
begin
  clrscr;

    repeat

    repeat
    {$I-}
  write('VVEDITE NOMER DNJA V GODU -> ');
  readln(k);
    {$I+}
    ok:=(ioresult=0);
    if not ok then writeln('* * * ERROR! WRONG INPUT! PLEASE TRY AGAIN! * * *');
    until ok;


   if(k>365) then writeln('NEVERNIJ VVOD! POVTORITE!');
    until(k>=0) and (k<=365);
    N:=k mod 7;
    case N of
  1:writeln ('PONEDELNIK');
  2:writeln ('VTORNIK');
  3:writeln ('SREDA');
  4:writeln ('CHETVERG');
  5:writeln ('PJATNICA');
  6:writeln ('SUBBOTA');
  7,0:writeln ('VOSKRESENJE');

end;
readln;
end.