Посчитатать количество элементов в строке(Pascal)

[adrenalin142]

Друзья выручайте! Задача вроде простая, но что-то не вяжется решение.
Итак, первоначально задание было такое:
Спроектируйте, реализуйте и протестируйте на ObjectPascal
программу со следующей программной функцией:
- осуществляет запрос и ввод элементов множества в переменную
типа множество с клавиатуры терминала, осуществляет вывод значения переменной типа множество на устройство отображения;
- осуществляет запрос и ввод элементов в массив множеств с клавиатуры терминала,
- осуществляет вывод значения переменной типа массив множеств
на устройство отображения.
Выполнить для арабских цифр.

Окей, более менее справился, но дальше меня просят модернизировать программу, чтобы она еще считала количество символов, входящих в строку. Тоже вроде ничего сложного, ввожу функцию kol, но вот тут и начинается чепуха (или нет?) - мне на экран выводятся странные значения, хотя по идеи как я понимаю количество символов должно выводиться от 0 до 10.

Вот собственно текст программы с модернизацией:

program PSetInOut;

{$APPTYPE CONSOLE}

uses
  SysUtils;

type
  Digits = 0..9;
//---------------------------------------------------------------------------
  Arabic = set of Digits;
//---------------------------------------------------------------------------
procedure ReadSet(var s: Arabic);
var
  i: Digits;
  answer: Char;
  r: Arabic;
begin
  r:= [0..9];
  repeat
    write('member of set  - 0..9: ');readln(i);
    if not(i in r) then
      begin
        writeln(i, ' - ilegal digit repeat input');
        answer:= #0
      end
    else begin
          Include(s,i);
          write('continue - <Enter>');
          readln(answer)
    end;
  until answer<>#13;
end;
//---------------------------------------------------------------------------
function WriteSet(s: Arabic): string;
var
  i: Digits;
  k:integer;
begin
  result:='';
  for i:= Low(Digits) to High(Digits) do
    if i in s then result:= result + Chr(i + ord('0'))+ ',';
end;

//---------------------------------------------------------------------------
function kol(s: string): integer;
var
  i,k:integer;
begin
readln(s);
k:=0;
for i:=1 to length(s) do
    inc(k);
end;
//---------------------------------------------------------------------------

var
  s: Arabic;
  answer: Char;
begin
  repeat
    readSet(s);
    writeln('s = ',WriteSet(s));
    write('continue - <Enter>');readln(answer)
  until answer<>#13;
  writeln('kol_el=', kol(WriteSet(s)));
  readln;
end.

[Stilet]

хотя по идеи как я понимаю количество символов должно выводиться от 0 до 10.

Нет не должно, потому что в твоей функции возврат результата не прописан.
И кстати зачем ее нужно было городить, если есть Length()?

[adrenalin142]

Сообщение от Stilet

Нет не должно, потому что в твоей функции возврат результата не прописан.
И кстати зачем ее нужно было городить, если есть Length()?

функция Length() вычисляет длину строки, а не считает количество символов

[Stilet]

функция Length() вычисляет длину строки, а не считает количество символов

Ну надеюсь тогда ты в курсе что строка это массив символов?

[adrenalin142]

Сообщение от Stilet

Ну надеюсь тогда ты в курсе что строка это массив символов?

если я правильно уловил твою мысль, ты предлагаешь, ввести условие проверки вхождения элемента в строку?

[adrenalin142]

Все, получилось) Спасибо)