Someone

function succliet (c : char) : char;
      var s : string;
          pos : integer; {pozicija abëcëlëje}
   begin
      pos := 0;
      s := 'aàbcèdeæëfghiáyjklmnoprsðtuøûvzþ';
      while ((pos < length (s)) and (c <> s[pos])) do pos := pos + 1; {ieðkome simbolio abëcëlëje}
      if (pos = length(s)) then exit                  {jei kreipinys buvo neteisingas funkcija nutraukia darbà}
                           else succliet := s[pos+1]; {graþinamas rezultatas}
   end;
 
 
 
 
    function predliet (c : char) : char;
      var s : string;
          pos : integer; {pozicija abëcëlëje}
   begin
      pos := 0;
      s := 'aàbcèdeæëfghiáyjklmnoprsðtuøûvzþ';
      while ((pos < length (s)) and (c <> s[pos])) do pos := pos + 1; {ieðkome simbolio abëcëlëje}
      if (pos = 1) then exit            {jei kreipinys buvo neteisingas funkcija nutraukia darbà}
                        else predliet := s[pos-1]; {graþinamas rezultatas}
   end;