Проверка корректности ввода - Pascal

Формулировка задачи:

Привет всем. Написал програмку, а вот коректность ввода проверить незнаю как...

program Range;
var
   a,v,g,l:real;
   input:string;
 
procedure init;
begin
 write('Awake to work with the program? y - yes, n - no:');
 readln(input);
 
 if input = 'y' then begin
   write('Enter a plase:');
   readln(a);
   write('Enter v plase:');
   readln(v);
   g := 9.8;
   l :=(sqr(v)*sin(2*a))/g;
   writeln(l);
   init;
end;
   if input = 'n' then exit;
end;
 
begin
   writeln('Program Range.');
   init;
   end.

Решение задачи: «Проверка корректности ввода»

Листинг программы

b:=a+10;

Объяснение кода листинга программы

b - новая переменная, куда будет сохранено значение
a - существующая переменная, значение которой будет использовано
10 - число, которое будет добавлено к значению переменной a
Результат сложения a + 10 будет сохранен в переменной b