Вычисление квадратного корня: защита от некорректных данных

program qq;
uses CRT;
var a, code: integer;
number: string;
Label Start, Info, Exit, Clear;
begin
TextBackGround ( Blue );
Clear;
clrscr;
TextColor ( Yellow );
gotoXY (17,2);
writeln(' Вычисление арифметического квадратного корня ');
TextColor ( White );
gotoXY (1,4);
writeln (' Команды: ');
TextColor ( Green );
gotoXY (1,5);
writeln(' Введите Exit для выхода из программы ');
gotoXY (1,6);
writeln(' Введите Info для получения информации ');
gotoXY(1,7);
writeln (' Введите Clear для очистки экрана ');
while a>=0 do begin
repeat
TextColor( Yellow );
writeln;
writeln('Введите число или команду');
readln (number);
if (number = 'EXIT') or (number = 'Exit') or (number = 'exit') then goto Exit;
if (number = 'INFO') or (number = 'Info') or (number = 'info') then goto Info;
if (number = 'CLEAR') or(number = 'Clear') or (number = 'clear') then goto Clear;
Val (number, a, code);
if a<0 then writeln ('Число отрицательное!');
until a>=0;
writeln('√' , a, '=' , sqrt (a));
end;
Info:
clrscr;
TextColor( Yellow );
writeln ('Программа " Вычисление арифметического квадратного корня "');
writeln ('(Для продолжения нажмите любую клавишу)');
readkey;
goto Clear;
Exit:
end.