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('(1)現在の配列の内容');
for i := 1 to n do write(a[i]:3);
writeln;
writeln('(2)挿入するデータ?');
read(dat);
repeat
writeln('(3)挿入する位置?');
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('(4)挿入後の配列の内容');
for i := 1 to n do write(a[i]:3);
{一時停止のためのread文}
readln(x)
end.
お礼
ご回答ありがとうございました。