Составить программу, которая по заданному слову из набора строит следующее за ним по алфавиту слово из этого набора

program panotschka;
 
uses
  crt;
 
var
  s: string;
procedure slovo(var s: string);
var
  b, d: integer;
begin
  b := 0;d := 0;
  d := length(s);
  for b := 1 to d do
  begin
    case (s[b]) of
      'а': writeln('ананас');     'ф': writeln('фотография');
      'б': writeln('банан');      'ч': writeln('чашка');
      'в': writeln('виноград');   'ц': writeln('цвет');
      'г': writeln('гранат');     'ш': writeln('шофёр');
      'д': writeln('дыня');       'щ': writeln('щётка');
      'е': writeln('ерунда');     'ъ': writeln('нету слова на букву "ъ"');
      'ё': writeln('ёж');         'ы': writeln('нету слова на букву "ы"');
      'ж': writeln('жаба');       'ь': writeln('нету слова на букву "ь"');
      'з': writeln('забор');      'э': writeln('эврика');
      'и': writeln('игра');       'ю': writeln('ювелир');
      'й': writeln('йогурт');     'я': writeln('ягуар');
      'к': writeln('краб');       ' ': writeln('  пробел');
      'л': writeln('лук');        
      'м': writeln('молоко');
      'н': writeln('нога');
      'о': writeln('отпуск');
      'п': writeln('папирус');
      'р': writeln('оука');
      'с': writeln('стол');
      'т': writeln('тень');
      'у': writeln('улица');
    end;
  end;
end;
 
begin
  clrscr;
  Writeln('Enter string = ');read(s);
  Writeln('----------');
  slovo(s);
  Writeln('----------');
end.