Список и рекурсия Опции

[NTL]

Дан список символов. Необходими расположить элементы в обратном порядке. Желательно использовать рекурсию, но можно и без нее. Помогите, пжлста..Никак не могу написать эту процеруру

Код

Type
  point = ^MyWord;
  MyWord = record
    ch: char;
    next: point
  end;
var
   slovo:point;

[volvo]

Не пойдет вот этот кусок:

  writeln('HABEPuTE C/\OBO C "." HA KOHCE ');
  while r^.ch <> '.' do begin ...

У тебя пока R не инициализирован... На FPC тут же выбило Segmentation Fault, в Турбо паскале нельзя доверять результату этой процедуры... Поменяй на такое:

  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 = '.';

, тогда ошибка уйдет, и больше не вернется ...

Ну, а твоя процедура должна быть такой, например:

procedure printreverse(first: point);
begin
  if first^.ch <> '.' then
    printreverse(first^.next);

  write(first^.ch);
end;