Delphi6で、実行後、一時停止をしたい。

質問

Delphi6を使ってPascalを勉強しています。
Delphi6でプログラムを記述し実行すると、MS－DOSが出てきて実行します。
しかし、実行した後すぐに終了してしまうので困っています。
合っているのか確認できません。

そのために一時停止用に型宣言のときに、　x:string;　
end.の前に　　readln(x)　　を付けて止めるようにしているのですが、
プログラムによって止まるのと止まらないのがあります。
どうしてなのでしょうか。
↓は止まりません。どうしたら止まってくれますか？

配列にデータを追加するプログラムです。

program ng;
{$AppType Console} uses
SysUtils;

var
　i, j, n, dat : integer;
　a : array[1..100] of integer;
　{一時停止のため変数名}
　x:string;

begin

{配列にデータを入力する}

　n := 6;
　a[1] := 20; a[2] := 30; a[3] := 60;
　a[4] := 70; a[5] := 80; a[6] := 90;
　writeln('（１）現在の配列の内容');
　for i := 1 to n do write(a[i]:3);
　writeln;
　writeln('（２）挿入するデータ？');
　read(dat);

　repeat
　　　writeln('（３）挿入する位置？');
　　　read(i);
　until(i < n) and (i > 0);

{配列への挿入}

　for j := n downto i do a[j+1] := a[j];
　a[i] := dat;
　n := n+1;

{挿入後の配列を表示}

　writeln('（４）挿入後の配列の内容');
　for i := 1 to n do write(a[i]:3);

　{一時停止のためのread文}
　readln(x)
end.

回答No.1

paspas · ベストアンサー

たぶん挿入するデータと挿入場所をread()で呼んでいるからでしょう。

read で読む場合は、データ入力後enterを押してはいけません。
しかし、データ入力の際、enterをおすので、キーバッファにenterが残ってしまいます。
その残ったenterが　readln(x)で読み込まれ、終了してしまいます。

データ入力のたびにenterを押すのであれば readln()で入力しましょう。

以下修正点

　readln(dat); <------

　repeat
　　　writeln('（３）挿入する位置？');
　　　readln(i); <-----------
　until(i < n) and (i > 0);

これでどうでしょうか？

お礼

回答有難うございます！
readln　にしたらきちんと止まってくれました。
とても助かりました。ありがとうございました♪