проблема с функцией IsNumber

[Paulsan]

в задаче для проверки строка-число используется функция val, никак не могу заменить её на функцию IsNumber.
вот задача:

program Point_2;
uses crt;

var Centre_x: string; {введенная координата X центра окружности}
Centre_y: string; {введенная координата Y центра окружности}
Radius: string; {введенный радиус окружности}
X_str: string; {введенная произвольная координата X}
Y_str: string; {введенная произвольная координата Y}
Next_: string; {переменная для определения продолжения работы программы}
CX: real; {координата центра окружности X}
CY: real; {координата центра окружности Y}
Rad: real; {радиус}
z: integer; {переменная для проверки возможности преобразования введенной строки в число}
X: real; {координата X произвольной точки}
Y: real; {координата Y произвольной точки}
Eqution: real;
i:real;
begin

repeat
clrscr; {Очистка экрана}
{Ввод данных пользователем}
repeat {Обработка введения координаты X}
writeln ( 'Введите координату Х центра окружности');
readln (Centre_x); {ввод координаты X центра окружности}
val(Centre_x,CX,z); {преобразование введенных строковых данных в число}
if z<>0 then {проверка возможности преобразования введенного в число}
begin
writeln ('Вы ввели некорректные данные!'); {вывод сообщения о неверно введенных данных}
end;
until z=0;

repeat {Обработка введения координаты Y}
writeln ('Введите координату Y центра окружности');
readln (Centre_y); {ввод координаты y центра окружности}
val(Centre_y,CY,z); {преобразование введенных строковых данных в число}
if z<>0 then {проверка возможности преобразования введенного в число}
begin
writeln ('Вы ввели некорректные данные!'); {вывод сообщения о неверно введенных данных}
end;
until z=0;

repeat {Обработка введения величины радиуса окружности}
writeln ('Введите радиус окружности');
readln (Radius); {ввод радиуса}
val(Radius,Rad,z); {преобразование введенных строковых данных в число}
if Rad <= 0 then {проверка корректности введенного радиуса}
begin
writeln ('Вы ввели некорректные данные!'); {вывод сообщения о неверно введенных данных}
end;
until Rad>0;

repeat {Обработка введения координаты X произвольной точки}
writeln ('Введите любую координату X');
readln (X_Str); {ввод координаты X}
val(X_Str,X,z); {преобразование введенных строковых данных в число}
if z<>0 then {проверка возможности преобразования введенного в число}
begin
writeln ('Вы ввели некорректные данные!'); {вывод сообщения о неверно введенных данных}
end;
until z=0;

repeat {Обработка введения координаты Y произвольной точки}
writeln ('Введите любую координату Y');
readln (Y_Str); {ввод координаты Y}
val(Y_Str,Y,z); {преобразование введенных строковых данных в число}
if z<>0 then {проверка возможности преобразования введенного в число}
begin
writeln ('Вы ввели некорректные данные!'); {вывод сообщения о неверно введенных данных}
end;
until z=0;

{Определение принадлежности точки с введенными произвольными координатами введенной окружности}
{уравнение окружности (X-CX)^2+(Y-CY)^2=Rad^2}
clrscr; {Очистка экрана}
Eqution:= (sqr(X-CX)+sqr(Y-CY));
if sqr(Rad)= Eqution then
begin
write (' и радиусом ', CX, ',',' CY, ' , Rad);
writeln ();
write ('Точка с введенными Вами координатами: ', X, ',', Y);
writeln ();
writeln ('Принадлежит введенной Вами окружности');
end;

if sqr(Rad) < Eqution then
writeln ('Точка с введенными координатами находится за пределами данной окружности');

if sqr(Rad) > Eqution then
writeln ('Точка с введенными координатами находится внутри данной окружности');

{Запрос - продолжать или нет}
Writeln();
Writeln('=> прекратить? 1 - да, 2 нет');
readln (i);
if i=1 then writeln('До свидания!');
until i=1;
end.

[_-Re@l-_]

Function IsNumber(S:String):Boolean;//функция проверяет, является ли строка числом
Var
     X,Err:Integer;
Begin
        Val(S,X,Err);
        If Err = 0 Then IsNumber:=True Else IsNumber:=False;
End;

[Paulsan]

Могли бы Вы показать на примере, а то я всё равно не могу понять как, что и куда. Спасибо.

[Sparkman]

Сообщение от Paulsan

Могли бы Вы показать на примере, а то я всё равно не могу понять как, что и куда. Спасибо.

Function IsNumber(Var Number:integer; S:String):Boolean;//функция проверяет, является ли строка числом
Var
     Err:Integer;
Begin
        Val(S,Number,Err);
        If Err = 0 Then IsNumber:=True Else IsNumber:=False;
End;

repeat {Обработка введения координаты Y произвольной точки}
writeln ('Введите любую координату Y');
readln (Y_Str); {ввод координаты Y}
if IsNumber(Y_Str,Y) then
writeln ('Вы ввели некорректные данные!'); {вывод сообщения о неверно введенных данных}
until z=0;

[Paulsan]

Не работает в паскале, может такое быть, что паскаль не знает такой функции?

[Sparkman]

Сообщение от Paulsan

Не работает в паскале, может такое быть, что паскаль не знает такой функции?

описание функции IsNumber пишите до начала программы (до слова Begin)

[Paulsan]

При подстановке выдает, что тип фактического параметра-переменной string отличается от типа формального параметра integer

[Sparkman]

Сообщение от Paulsan

При подстановке выдает, что тип фактического параметра-переменной string отличается от типа формального параметра integer

у меня все без ошибок отрабатывает

function IsNumber(Var Number:integer; S:String):Boolean;
var err:integer;
begin
     val(s,number,err);
     if err=0 then isnumber:=true else isnumber:=false;
end;

var x:string;
    a:integer;
begin
     writeln('enter x');
     readln(x);
     if isnumber(a,x) then writeln('yeah') else
     writeln('shit');
     readln;
end.

[Paulsan]

Спасибо огромное!!!Всё получилось

[Paulsan]

рано обрадовался, теперь все переменные стали типа string и я не могу подставить их в формулу. Паскаль ругается, что операция не применима к операндам этого типа. Как мне быть?