Запись ввода в значение

[Randall C. Walker]

Добился, чтобы вводилось только число, но не могу добиться, чтобы последовательность значения вводилось в s.

uses crt;
const ENTER=#13;

var c:char;
    i,j:byte;
    s:real;
begin
     clrscr;
     writeln('Вводите значение');
     c:=readkey;
     i:=0;
     while (c<>ENTER) do begin
        if i=0 then
           begin
                 if c in ['-'] then
                    begin
                          write(c);
                          i:=1;
                    end;
           end;
        if j=0 then
           begin
                 if c in [','] then
                    begin
                          write(c);
                          j:=1;
                    end;
                 if c in ['.'] then
                    begin
                          write(c);
                          j:=2;
                    end;
           end;

        if c in ['0'..'9'] then
           begin
                 write(c);
                 i:=1;                 
           end;
           c:=readkey;
           s:=ord(c); {?};
     end;
     writeln(s);
     readkey;
end.

[newerow1989]

s:integer;
***
s:=ord(c); {?};

При таком раскладе s всегда будет = 13.

[Randall C. Walker]

необходимо, чтобы в s записывалось значение, вводимое до нажатия Enter

[newerow1989]

Возможно так?

uses crt;
 const ENTER=#13;
 var c:char;
 i,j:byte;
 s:real;
 begin
 clrscr;
 writeln('вводите цифры');
 c:=readkey;
 i:=0;
 while (c<>ENTER) do begin
 if i=0 then
 begin
 if c in ['-'] then
 begin
 write(c);
 i:=1;
 end;
 end;
 if j=0 then
 begin
 if c in [','] then
 begin
 write(c);
 j:=1;
 end;
 if c in ['.'] then
 begin
 write(c);
 j:=2;
 end;
 end;

 if c in ['0'..'9'] then
 begin
 write(c);
 i:=1; 
 end;
 s:=ord(c); {?};
 writeln(s);
 c:=readkey;
 end;
 end.

[newerow1989]

Randall C. Walker, а для чего нужен

if i=0 then
           begin
                 if c in ['-'] then
                    begin
                          write(c);
                          i:=1;
                    end;
           end;
        if j=0 then
           begin
                 if c in [','] then
                    begin
                          write(c);
                          j:=1;
                    end;
                 if c in ['.'] then
                    begin
                          write(c);
                          j:=2;
                    end;
           end;

        if c in ['0'..'9'] then
           begin
                 write(c);
                 i:=1;                 
           end;

? Я чего-то не пойму?

[Randall C. Walker]

Проверять правильность введеных символов. Чтобы знак "-" стоял до числа, "." или "," вводилось только один раз

[min@y™]

но не могу добиться, чтобы значение вводилось в значение

...а в киеве – дядька!

Как звучит задание в оригинале?

[Randall C. Walker]

Как звучит задание в оригинале?

Задания нет. Это я для себя.
Я ввообще хочу чтобы в s вводилось нецелочисленное число и на нажетие букв не реагировало.

[min@y™]

Задания нет. Это я для себя.

Нету, так сформулируй!

[Randall C. Walker]

Ввод значения с клавиатуры, при котором недопустим ввод букв и знака отрицания в середине числа. Значение при этом может быть вещественное.