Почему программа на Паскаль не работает?

Question

[ShantMnac]

type list=^point;
     point=record
      data: char;
      next: list;
     end;

procedure readList(var L: list);
  var c: char;
      temp: list;
  begin
    new(temp);
    read (c);
    temp^.data:=c;
    temp^.next:=nil;
    L:=temp;
    while not eoln do begin
      read(c);
      read(c);
      new (temp^.next);
      temp:=temp^.next;
      temp^.data:=c;
      temp^.next:=nil;
    end;
end;

procedure delDouble(var L: list);
  var 
temp1, temp2: list;
  begin
  temp1:=L;
  temp2:=L^.next;
  while temp2<>nil do begin
    if temp1^.data<>temp2^.data then begin
      temp2:=temp2^.next;
      temp1:=temp1^.next;
    end
    else
      temp2:=temp2^.next;
      temp1^.next:=temp2;
  end;
  while L<>nil do begin
    write(L^.data, ' ');
    L:=L^.next
  end;
end;

function numE(E: char; L: list): integer;
  var i: integer;
  begin
  if L^.next<>nil then begin
    if L^.data=E then 
      numE:=1+numE(E, L^.next)
  end;
end;

var L1, L2: list;
    j: char;

begin
  readList(L1);
  L2:=L1;
  delDouble(L1);
  read(j);
  numE(j, L2);
end.

Вот программа. Компилятор упорно не хочет читать j, при отладке он просто проходит по строчке без всякой реакции. Что за магия?

Answer 1

[Армянское Радио]

Замените везде read на readln

Comments

[ShantMnac]

Не прокатит. В readList идет посимвольное считывание

[Армянское Радио]

ShantMnac: для посимвольного чтения существует readkey

[ShantMnac]

Армянское Радио: к сожалению, в универе такое не разрешают

[Армянское Радио]

ShantMnac: Вам не разрешают использовать весь язык? В таком случае, ваш преподаватель - не компетентен.

[ShantMnac]

Армянское Радио: ну я считаю, что изучение паскаля в принципе бессмысленно, тем более в ведущем вузе страны. Но тут уж ничего не поделаешь

[Антон Федорян]

ShantMnac: считать так даже не зная самого языка и не умея им пользоваться еще более бессмысленно...

[ShantMnac]

Антон Федорян: во-первых, не стоит делать поспешных выводов о моих знаниях, во-вторых, вряд ли вы будете отрицать, что Паскаль редко используется на практике в реальных проектах. Как бы там ни было, вы не могли бы подсказать конкретное решение в моем случае?