Помогите пожалуйста с легким кодом

Question

Есть программа:
var
x,y,g,s,p:real;
begin
writeln('Введите катет x');
readln(x);
writeln('Введите катет y');
readln(y);
G:=sqrt(sqr(x)+sqr(y));
P:=x+y+g;
S:=(x*y)/2;
writeln('Гипотенуза равна: ',G);
writeln('Периметр равен: ',P);
writeln('Площадь равна: ',S);
readln;
end.
Как сделать так, чтобы при вводе букв программа писала "Введите число" и возвращалась, а не заканчивала работу

Stas · Accepted Answer

ввести проверку на тип данных, т. е. они должны быть numeric

Павел 2007 · Answer

m://метка
var
x,y,g,s,p:real;
begin
writeln('Введите катет x');
readln(x);
writeln('Введите катет y');
readln(y);
G:=sqrt(sqr(x)+sqr(y));
P:=x+y+g;
S:=(x*y)/2;
writeln('Гипотенуза равна: ',G);
writeln('Периметр равен: ',P);
writeln('Площадь равна: ',S);
readln;
goto m; 
end.

Алексей Малеев · Answer

вроде как-то так можно
repeat
writeln('введите. . .');
{I-}//не Л а И

readln(x);

{I+}

until IoResult = 0