freepascalのプログラム 文字型の扱い

Question

大学の夏休みの課題で、自分一人で解決できなくなってしまいました。もし分かる方がいらっしゃれば教えて下さい。

freepascal データの挿入探索削除列挙のプログラム(実行文部)

begin
 root:=nil;
 mark:=' ';
  while mark<>'q' do 
 begin
  writeln('[r]:登録,[d]:削除,[s]:探索,[e]:データ列挙,[q]:終了');
  write('選択キー:'); read(mark);
  if mark='r' then 
   begin write('登録データ入力:'); read(m); register(m,root) end
   else if mark='d' then 
   begin write('削除データ入力:'); read(m); delete(m,root) end
   else if mark='s' then 
   begin write('探索データ入力:'); read(m); search(m,root) end
   else if mark='e' then
   begin write('データ一覧:'); enumerate(root); writeln end;
 writeln;
 end;
 writeln('終了');
end.

自分で文字型markを読みこみ、そのマークの値によって、条件分岐で整数値mの登録、削除、探索、データの列挙、もしくは終了を行う2分木構造プログラムです。
register,delete,search,enumerateは各操作を2分木に行う関数です。
これを実行した時に、
r:登録,[d]:削除,[s]:探索,[e]:データ列挙,[q]:終了
選択キー:r
登録データ入力:7 (①)

選択キー:
r:登録,[d]:削除,[s]:探索,[e]:データ列挙,[q]:終了
選択キー:r (②)
登録データ入力:8

選択キー:
r:登録,[d]:削除,[s]:探索,[e]:データ列挙,[q]:終了
選択キー:e
データ一覧:7,8,

選択キー:
r:登録,[d]:削除,[s]:探索,[e]:データ列挙,[q]:終了
選択キー:q

終了

このように、毎回のループで選択キーが登録されない？(空白になる)ループが一回起きてしまいます。上で言えば、①を打ち込んだあと、すぐに②の行に移るという感じです。

色々自分で試行錯誤したのですが、解決できなかったので、よろしくお願い致します。

Comments

[y_waiwai]

質問は編集できます。
追記修正しましょう

[cateye]

FreeBSDではなくfpcですね？
言語はPasclで、タグを変えて下さい。・・・出来れば環境（OS・・・FreeBSD？など）も分かると良いのですが・・・
レコードのコードが見えません、コンパイルできるソースを提示して下さい。
function? Procedure? ・・・しばらく触ってないからスペル違うかも＾＾；
・・・あと、コンパイルオプションは？・・・fpc -Misoとか・・・

[cateye]

read()が悪さしている？・・・様に思うのですがデバッグできませんか？
・・・read()の正確な仕様が不明・・・→私

Answer 1

回答ではありません。
再現されました（１回スキップって、なんだか分からん？）・・・再現可能なコードだけ上げておきます。

program test(input,output);
var
    c: char;
    i: integer;
begin
    for i:=0 to 9 do begin
        read(c);
        writeln('No.', i ,c);
    end

end.

結果↓
usr ~/Project/pascal % ./tst
1
No. 01
2
No. 1
No. 22
3
No. 3
No. 43
4
No. 5
No. 64
5
No. 7
No. 85
6
No. 9

環境は
Linux mint 20.0
Free Pascal Compiler version 3.0.4+dfsg-23 [2019/11/25] for x86_64
[追記]
read(c);をreadln(c);にしたら治りましたが・・・・改行したくないなら、なにか方法を・・・
usr ~/Project/pascal % ./tst
1
No. 01
2
No. 12
3
No. 23
4
No. 34
5
No. 45
6
No. 56
7
No. 67
8
No. 78
9
No. 89
0
No. 90
usr ~/Project/pascal %

Comments

[ajmtld2635atw]

ご返信ありがとうございます。
cateyeさんのプログラムで、なぜ2〜6の入力では、cの値が空欄？でループが一回回ってしまうのでしょうか。
自分のプログラムもおそらく同じです。

[Zuishin]

改行を読んでいるのでは？

[Zuishin]

https://wiki.freepascal.org/Read

> Difference between read and readLn
ReadLn will in contrast to read consume a trailing line feed. It is discarded and does not have any influence on how to save supplied data.

[ajmtld2635atw]

2を入力したあと、
No. 12
という表示はなぜされないのでしょうか。

[Zuishin]

c が改行コードなら No. 1<改行コード> と表示されると思います。
空行が出力されていないので他のホワイトスペースかもしれませんが、一度文字コードを表示させてみればわかるのではないでしょうか。
read の代わりに readLn を使うことで解決しそうな気がしますが。

[cateye]

ヒント有難うございましたm(_"_)m　→Zuishinさん
・・・Pascalは、普段使わない(てか、read,writeの類)ので勉強に成りました。