Почему Val возвращает 0 & 0?

[Dynn]

Процедура ищет в строке s первые символы <> пробелу, запоминает их в s2 и удаляет эту подстроку. Процедурой Val s2 необходимо перевести в numb. Но не могу понять, почему при любых введенных значениях она возвращает 0 и 0. то есть ошибка в нулевом символе? О_о и в каком модуле вообще добыть можно код Val'а?

uses crt;
procedure NextNumber(s:string; numb:integer);{находит в строке
                                                           следующее число}
  var i,nach,kon,e:integer;  s2:string; f:boolean;
 begin
    f:=true;
    for i:=1 to length(S) do        {проверка строки, если состоит из}
     if s[i]<>' ' then f:=false;     {пробелов или пустая, то numb=-16}
    nach:=0; kon:=0; i:=0;
    s:=' ' + s + ' ';
    while (nach=0) or (kon=0) do begin
        i:=i+1;
        if (s[i]=' ') and (s[i+1]<>' ') then nach:=i+1;
        if (s[i]<>' ') and (s[i+1]=' ') then kon:=i;
                                            end;
    s2:=copy(s,nach,(kon-nach+1)); writeln(s2); readln;
    delete(s,1,kon+1); writeln(s); readln;
    if s2='-' then nextnumber(s,numb) else 
        val(s2, numb,e);
    if (f) or (s='') then numb:=-16;
 end;

var s:string; numb,e:integer;

begin     readln(s); nextnumber(s,numb);
            writeln(numb,'  ',e); readln;
            end.

[Serge_Bliznykov]

не проверял, но вижу, что Вы значение numb не возвращаете!

попробуйте, для начала:

procedure NextNumber(s:string; var numb:integer);{находит в строке
                                                           следующее число}

writeln(numb,'  ',e);

p.s. если Вы хотите использовать переменную e - то её тоже нужно возвращать из процедуры.
иначе она у Вас всегда будет равна нулю.

[Dynn]

о боги, и из-за этого париться столько времени.....
спасибо

[Serge_Bliznykov]

не за что.

p.s. обратите внимание, что если Вы собираетесь использовать функцию в цикле, то Вам, скорее всего, строку тоже надо будет объявить в параметрах через var (я код не разбирал, но Вы там, по-моему, удаляете обработатнное число).

p.p.s. рекомендую Вам (ещё раз) перечитать теорию - чем процедура отличается от функции, что такое формальные и фактические параметры процедуры/функции.