くじ引きプログラム。

(* くじ引きソフトです。

このソースファイルをエディターでコピペして、

フリーパスカルコンパイラでコンパイルすると

くじ引きが楽しめます。 *)

program kamizei;

var
ans: char;
str: string;
kuji: array of string;
mb, i: integer;

begin
repeat
writeln('くじ引きソフトです');

writeln('何についてくじを引くか全角で入力してください');
write('>');
readln(str);

writeln('メンバーの数を半角数字で入力してください');
write('>');
readln(mb);

setlength(kuji, mb);

for i := 0 to mb - 1 do
begin
writeln('メンバーの名前を全角で入力してください');
write('>');
readln(kuji[i]);
end;

randomize;
i := random(mb);

writeln(str + 'の当選者は' + kuji[i] + 'です');

finalize(kuji);

writeln('続けますか？ (y/N)');
write('>');
readln(ans);
until upcase(ans) = 'N';
end.