Программа в паскаль которая выбирает рандомно одну из надписей.

PascalABC.NET 3.3.5, сборка 1662 от 29.04.2018
Внимание! Если программа не работает, обновите версию!

begin
  Randomize;
  case Random(1,3) of
  1:Writeln('Скоро каникулы!');
  2:Writeln('Надоела мне учеба!');
  3:Writeln('Не хочу заниматься информатикой!')
  end
end.

Var a,i,rand: Integer;
sa,sas: string;
begin
writeln('Кол-во надписей');
readln(a);
rand:=Random(a);
for i:=1 to a do
begin
writeln('Введите ',i,' текст');
readln(sas);
if rand=i then sa:=sas;
end;
writeln('Текст: ',sa);
end.