помогите с задачкой

[DIzza]

Если в заданной строке символов есть хотябы один пробел,выдать на печать сообщение об этом..




Исходный текст Век Живи-век учись



буду оч благодарен...!!спс за ранее

[alex_fcsm]

var s:string;
begin
readln(s);
if pos(' ',s)<>0 then writeln('Yes')
   else writeln('NO');
end.

[Sazary]

uses crt;
var
s : string;
i : integer;
begin
clrscr;
writeln('Vvedite stroku:');
readln(s);
i := pos(' ',s);
if i<>0 then writeln('Probel est!')
else writeln('Net probela');

readln;
end.

[Sazary]

BarT(48rus)

пишет ошибку 207

207 Invalid floating point operation (Недопустимая операция с плавающей запятой)
Возможно, вы берете корень от отрицательного числа

A[i]:=x[i]*arctan(sqrt(1-sqr(x[i]))/x[i])/2.5;

попробуйте

A[i]:=x[i]*arctan(sqrt(abs(1-sqr(x[i])))/x[i])/2.5;

Если не поможет, приведите полный код