[PaskalABC.NET]Исправте ошибку

[destra1j]

var 
mas:array[1..100]of integer;
s,stemp:string;
i,j,c,k,buf:integer;
begin
readln(c);
 s:=s+' ';
 stemp:='';
 j:=0;
 for i:=1 to length(s) do
 begin
   if s[i]=' ' then
      begin 
       if stemp<>''then
       begin
         j:=j+1;
        val(stemp,mas[j],c);
         stemp:='';
         end
        end
        else
        stemp:=stemp+s[i]
        end;
        
       for i:=1 to j do
         write(mas[i],';');
        val(buf,s[i],c); //здесь ошибка
         for i:=0 to j do
          for k:=i+1 to j do
          if s[i]<s[k] then 
           begin 
            buf:=s[i];
            s[i]:=s[k];
            s[k]:=buf;
            end;
         end.

я не пойму где я протупил подскажите плз

[Serge_Bliznykov]

по синтаксису правильно будет:

val(s[i],buf,c);

(см. описание процедуры ниже).
НО!
Я вообще никакого смысла в этой строчке не вижу!
Выкиньте её напрочь.

или расскажите, какую задачу Вы решаете?!



выдержка из Help'а по процедуре VAL

Val (procedure)
___________________________
Converts a string value to its numeric
representation.

 Declaration:
 procedure Val(S; var V; var Code: Integer);
where:
  S          string-type variable; must be a sequence of characters that
             form a signed whole number
  V          integer-type or real-type variable
  Code       variable of type Integer.

[destra1j]

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

Ну я начал так чтоб в масив записывались числа со строки но если встречен пробел то пропускать его и переходить к следующему символу в строке.
Ошибка в сортировке

[Serge_Bliznykov]

ясно. ошибок много.

разбирайте готовое решение:

var
  mas: array[1..100] of integer;
  s, stemp: string;
  i, j, c, k, buf: integer;
begin
 //readln(s);
  s := '12 456 17 352 200 2 1';

  s := s + ' ';
  stemp := '';
  j := 0;
  for i := 1 to length(s) do
  begin
    if s[i] = ' ' then
    begin
      if stemp <> '' then
      begin
        val(stemp, k, c);
        if c = 0 then begin
          j := j + 1;
          mas[j] := k
        end;
        stemp := '';
      end
    end
    else
      stemp := stemp + s[i];
  end;

  // сортировка
  for i := 1 to j - 1 do
    for k := i + 1 to j do
      if mas[i] > mas[k] then
      begin
        buf := mas[i];
        mas[i] := mas[k];
        mas[k] := buf;
      end;

  // вывод результата
  WriteLn('результат:');
  for i := 1 to j do Write(mas[i], ' ');
  WriteLn;
end.

[destra1j]

var
  mas: array[1..100] of integer;
  s, stemp: string;
  i, j, c, k, buf: integer;
begin
 writeln('введите строку чисел');
 readln(s);
  

  s := s + ' ';
  stemp := '';
  j := 0;
  for i := 1 to length(s) do
  begin
    if s[i] = ' ' then
    begin
      if stemp <> '' then
      begin
        val(stemp, k, c);
        if c = 0 then begin
          j := j + 1;
          mas[j] := k
        end;
        stemp := '';
      end
    end
    else
      stemp := stemp + s[i];
  end;

  // сортировка
  for i := 1 to j - 1 do
    for k := i + 1 to j do
      if mas[i] > mas[k] then
      begin
        buf := mas[i];
        mas[i] := mas[k];
        mas[k] := buf;
      end;

  // вывод результата
  WriteLn('результат:');
  for i := 1 to j do Write(mas[i], ' ');
  WriteLn;
end.

немного переделал