Добавить защиту от дурака (на ввод букв вместо цифр) - Pascal ABC

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

помогите, пожалуйста сделать защиту от дурака, чтобы если вместо ввода чисел будут введены буквы, программа выдавала сообщение о том, что стоит повторить попытку. до тех пор,пока не будут введены цифры.

Program lrp;
var a,b,c,x1,x2,x3,x4,t1,t2,D:real;
begin
writeln('Программа решает биквадратное уравнение');
writeln('Введите a');
readln(a);
writeln('Введите b');
readln(b);
writeln('Введите c');
readln(c);
D:=b*b-4*a*c;
if d<0 then writeln('уравнение не имеет решений') else
 begin
 t1:=(-b+sqrt(d))/(2*a);
 t2:=(-b-sqrt(d))/(2*a);
 if (t1<0) and (t2<0) then writeln('уравнение не имеет решений') else
 begin
  if t1>=0 then
   begin
    x1:=sqrt(t1);
    x2:= -sqrt(t1);
    write('ответ: ',x1,'; ',x2,';');
   end;
  if t2>=0 then
   begin
    x3:=sqrt(t2);
    x4:= -sqrt(t2);
    writeln(x3,'; ',x4,'.');
   end;
  end;
end;
end.

Решение задачи: «Добавить защиту от дурака (на ввод букв вместо цифр)»

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

var s:string;
a:real;
k:integer;
begin
Writeln('Введите число: ');
Readln(s);
val(s,a,k);
if (k<>0) then
begin
repeat
Writeln('Povtorite');
Readln(s);
val(s,a,k);
until (k=0);
end;
Writeln('Число=',a);
end.

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

Создается переменная s типа string, которая будет использоваться для чтения ввода пользователя.
Создается переменная a типа real, которая будет использоваться для хранения введенного числа.
Создается переменная k типа integer, которая будет использоваться для контроля над циклом.
Выводится сообщение Введите число: для привлечения внимания пользователя и получения его ввода.
Считывается введенное значение пользователя и сохраняется в переменной s.
Выполняется проверка значения переменной k. Если k не равно нулю, то начинается цикл.
Выводится сообщение Povtorite для привлечения внимания пользователя и получения его ввода.
Считывается введенное значение пользователя и сохраняется в переменной s.
Выполняется проверка значения переменной k. Если k равно нулю, то цикл завершается.
Выводится сообщение Число= для отображения введенного числа.
Конец программы.