Списки и удаление повторяющихся символов Опции

[NTL]

Используя однонаправленные списки, помогите, пожалуйста, написать процедуру. В слове, состоящем из букв и цифр и заканчивающемся точкой, перед каждой группой одинаковых букв вставить цифру, изображающую число букв в этой группе, а саму группу заменить одной буквой. Other words, например, собббака, то выводим со3бака и т.д. Ввод-вывод списка есть

Код

Type
  point = ^MyWord;
  MyWord = record
    ch: char;
    next: point
  end;
var
   slovo:point;
{---------------------------------------------------------------------------}
procedure Print (first: point);
Var r: point;
begin
  R:= first;
  write('C/\OBO = ');
  While r<>nil do
    begin
      Write (r^.ch);
      R:=r^.Next;
  end;
  writeln;
end;
{---------------------------------------------------------------------------}
procedure Vvod(var first:point);
var r, last:point;
begin
  first:= nil; last := nil;

   writeln('HABEPuTE C/\OBO C "." HA KOHCE ');
  repeat
      new(r);
      r^.next := nil;
      read(r^.ch);

      if first = nil then first := r
      else last^.next := r;

      last := r;
  until r^.ch = '.';

end;

ЗЫ: Спасибо, volvo, за редактирование ввода

[volvo]

procedure myproc(first: point);
var
  r, temp: point;
  k: integer;

begin
  r := first;
  repeat
    k:=1;
    temp := r;
    while (r^.next <> nil) and (temp^.ch = r^.next^.ch) do begin
      inc(k);
      delete®;
    end;

    if k > 1 then
      insert_before(temp, chr(ord('0') + k));

    r:=r^.next;
  until r = nil;
end;

Вызывать - вот так:

  clrscr;
  vvod(slovo);
  print(slovo);
  MyProc(slovo);
  print(slovo);
  readkey;

, потому, что тебе надо не заменить "на лету", оставив сам список неизменным, в заменить символы именно в списке, следовательно в myproc не печатается ничего, печать вызывается ПОСЛЕ...