unit db;

interface
     type    kryptis = ^sarasas;
            sarasas = record
                skaitmuo : integer;
                pirmyn,atgal : kryptis;
     end;
    function convert (skaicius : string):sarasas;
implementation
    function convert (skaicius : string):sarasas;
        var i : integer;
            s, senas : sarasas;
    begin
        s := nil;
        for i := 1 to length(skaicius) do
        begin
            senas := s;
            new(s);
            s.pirmyn := nil;
            s.atgal := senas;
            s^.skaitmuo := skaicius[i];
            s^.skaitmuo := Ord(s.skaitmuo) - 48;
        end;
    end;
begin
end.