Посчитать количество буквосочетаний в динамической строке

var
  n, k: longint;
  s: string;
begin
  write('Введите строку:');
  readln(s);
  k := 0;
  for n := 1 to length(s) - 1 do
    if (s[n] = 'E') and (s[n+1] = 'D') or (s[n] = 'e') and (s[n+1] = 'd') then inc(k);
  writeln('"ED" или "ed" встречается ', k, ' раз');
  readln
end.

type
  List = ^TList;  {типизированный указатель}
  TList =         {тип указателя: запись}
    record
      data: char; {данные}
      next: List  {указатель на адрес следующей переменной}
    end;
 
var
  str, head: List; {переменная для списка и для головы списка}
  k: integer; {количество вхождений}
  c: char;
begin
  write('Введите строку: ');
  while not EoLn do {пока не нажат <Enter>, вводим символы}
    begin
      if str = nil then {если список пуст, то...}
        begin         {...создаём список}
          new(str);   {выделяем память под первый элемент списка}
          head := str {запоминаем адрес первого элемента списка}
        end
      else {иначе, если список не пуст, то...}
        begin
          new(str^.next);  {добавляем в список новый элемент}
          str := str^.next {и переносим на него указатель}
        end;
      read(str^.data); {вводим символ}
    end;
  readln; {убираем <Enter> из буфера строки}
  if str = nil then writeln('Слишком короткая строка') {если список пуст, то символы не введены, ничего не делаем}
  else {иначе, если список не пуст, то...}
    begin {подсчитываем }
      k := 0; {пока не найдено}
      c := ' '; {пока символ не E, D, e, d}
      str := head; {перемещаем указатель на начало списка}
      repeat {повторяем ...}
        if (c = 'E') and (str^.data = 'D') or (c = 'e') and (str^.data = 'd') then inc(k); {подсчёт совпадиенй}
        c := str^.data; {запоминаем элемент}
        str := str^.next; {переходим на следующий элемент списка}
      until str = nil; {... до тех пор, пока список не кончится}
      writeln('"ED" или "ed" встречается ', k, ' раз') {в конце печатаем количество}
    end;
  str := nil;
  dispose(str);
  head := nil;
  dispose(head);
  readln
end.