Турбопаскаль. Функции.

[eduard.80@mail.ru]

Задача такова: 6. Описати функцію f(x) – число, яке складається з цифр, з яких починається слово х. Наприклад: f(’23 жовтня’)=23; f(’січень 1998’)=0. Скласти програму яка друкує числа, з яких починається слово в послідовності слів.
Подскажите, пожалуйста, почему не работает функция? Когда простой программой пишу - всё получается(((
код:

program LAB626;
        var s:string;
        function cifra(n:string):string;
                 var i:integer;
                     y:string;
                 begin
                 y:='';
                 readln(n);
                 for i:=1 to length(n) do
                   if n[i] in ['0'..'9']  then
                   y:=y+n[i];
                   cifra:=y;
                 end;
        begin
        writeln ('Введите строку');
        readln(s);
        cifra(s);
        writeln(cifra(s));
        readln;
        end.

[Mad_Cat]

function cifra(n:string):string;
                 var i:integer;
                     y:string;
                 begin
                 for i:=1 to length(n) do
                   if n[i] in ['0'..'9']  then
                   y:=y+n[i];
                   cifra:=y;
                 end;

[eduard.80@mail.ru]

Спасибо, Mad_Cat, но всё равно чего то не работает, выводит кучу иероглифов...

[eduard.80@mail.ru]

program LAB626;
        var s:string;
        function cifra(n:string):string;
                 var i:integer;
                     y:string;
                 begin
                 y:='';
               
                 for i:=1 to length(n) do
                   if n[i] in ['0'..'9']  then
                   y:=y+n[i];
                   cifra:=y;
                 end;
        begin
        writeln ('Введите строку');
        readln(s);
        cifra(s);
        writeln(cifra(s));
        readln;
        end.

вот в таком виде работает)))