Выводит ошибка

var
 
  i: Integer;
  s: string[50]; // Переменная для хранения значения числа в строковом типе данных.
  flag:boolean;
begin
flag:=true;
  writeln('Введите отрицательное вещественное число:');
  readln(s);
  for i:=1 to length(s) do begin
      if not ((s[i]< 0)) then
          flag:=false;
        end;
  if flag then writeln('Введенная запись является корректной.') else writeln('ошибка`);
end.

val(s,n,k);
if(k=0)and(n<0) then write('Yes'')

var 
i,k:integer;
flag:boolean;
s:string;
begin
writeln('Введите отрицательное вещественное число'); readln(s);
flag:=true;
k:=0;
if s[1]='-' then
                begin
                   for i:=2 to length(s) do 
                                         begin
                                            if s[i]='.' then inc(k) else
                                                                      begin
                                                                         if not((s[i]='0') and (s[i]='9'))then
                                                                                                             begin
                                                                                                                flag:=false;
                                                                                                                break;
                                                                                                               end;
                                                                       end;
                                           end;
                    end;
If (k=0) or (k>1) then flag:=false;
If flag then writeln('да') else writeln('нет');
end.

if not((s[i]='0') and (s[i]='9'))

if not((s[i]>'0') and (s[i]<'9'))