Составьте метод (PascalABC), в итоге которого получится "слово", состоящее из букв

 var a:array['a'..'l',0..1] of char=
(('e','i'),('f','j'),('g','k'),('h','l'),('a','i'),('b','j'),
 ('c','k'),('d','l'),('a','e'),('b','f'),('c','g'),('d','h'));
i,k: integer; s:string;
begin
Randomize;
k:=random(12);
s:=''+chr(ord('a')+k);
for i:=2 to 32 do
 s:=s+a[s[i-1],random(2)];
writeln(s);
end.

Пример:
dlhlhdlhdhldlhlhldhdhdlhdhdldhlh

Program Posledovatelnost;
var  a: char;  b: string;  code, c: integer;
label dne;begin  readln(a);    //Читаем  code := Ord(a); //Преобразуем  b := Concat(b, a);  for c := 1 to 31 do  begin    case code of      97, 65:        begin//если "A"          readln(a);          code := Ord(a);          case code of            101, 69: b := Concat(b, a);            105, 73: b := Concat(b, a);          else begin writeln('За предшествующей буковкой не может следовать эта буковка. Окончание!');goto dne end;          end;        end;      98, 66:        begin//Если "B"          read(a);          code := Ord(a);          case code of            102, 70: b := Concat(b, a);            106, 74: b := Concat(b, a);          else begin writeln('За предшествующей буковкой не может следовать эта буковка. Завершение!');goto dne end;          end;        end;      99, 67:        begin//Если "C"          read(a);          code := Ord(a);          case code of            103, 71: b := Concat(b, a);            107, 75: b := Concat(b, a);          else begin writeln('За предшествующей буквой не может следовать эта буква. Завершение!');goto dne end;          end;        end;      100, 68:        begin//Если "D"          read(a);          code := Ord(a);          case code of            104, 72: b := Concat(b, a);            108, 76: b := Concat(b, a);          else begin writeln('За предыдущей буковкой не может следовать эта буковка. Окончание!');goto dne end;          end;        end;      101, 69:        begin//Если "E"          readln(a);          code := Ord(a);          case code of            97, 65: b := Concat(b, a);            105, 73: b := Concat(b, a);          else begin writeln('За предшествующей буквой не может следовать эта буква. Окончание!');goto dne end;          end;        end;      102, 70:        begin//Если "F"          readln(a);          code := Ord(a);          case code of            98, 66: b := Concat(b, a);            106, 74: b := Concat(b, a);          else begin writeln('За предшествующей буковкой не может следовать эта буковка. Окончание!');goto dne end;          end;        end;      103, 71:        begin//Если "G"          readln(a);          code := Ord(a);          case code of            99, 67: b := Concat(b, a);            107, 75: b := Concat(b, a);          else begin writeln('За предшествующей буковкой не может следовать эта буковка. Окончание!');goto dne end;          end;        end;      104, 72:        begin//Если "H"          readln(a);          code := Ord(a);          case code of            100, 68: b := Concat(b, a);            108, 76: b := Concat(b, a);          else begin writeln('За предшествующей буковкой не может следовать эта буковка. Окончание!');goto dne end;          end;        end;      105, 73:        begin//Если "I"          readln(a);          code := Ord(a);          case code of            97, 65: b := Concat(b, a);            101, 69: b := Concat(b, a);          else begin writeln('За предшествующей буквой не может следовать эта буковка. Окончание!');goto dne end;          end;        end;      106, 74:        begin//Если "J"          readln(a);          code := Ord(a);          case code of            98, 66: b := Concat(b, a);            102, 70: b := Concat(b, a);          else begin writeln('За предшествующей буковкой не может следовать эта буковка. Завершение!');goto dne end;          end;        end;      107, 75:        begin//Если "K"          readln(a);          code := Ord(a);          case code of            99, 67: b := Concat(b, a);            103, 71: b := Concat(b, a);          else begin writeln('За предшествующей буковкой не может следовать эта буковка. Завершение!');goto dne end;          end;        end;      108, 76:        begin//Если "L"          readln(a);          code := Ord(a);          case code of            100, 68: b := Concat(b, a);            104, 72: b := Concat(b, a);          else begin writeln('За предшествующей буковкой не может следовать эта буковка. Завершение!');goto dne end;          end;        end;    end;  end;  writeln(b);  dne: end.