Определи разрешенные или запрещенные имена у

переменных:

AXby
​

Begin
Writeln('Введите имя игрока ');
var name := ReadString;
Writeln('Введите сумму ');
var sum := ReadInteger;
while True do
begin
Writeln('Введите ставку от ', 1, ' до ', sum);
var stavka := ReadInteger;
if stavka > sum then
writeln('Ставка не может превышать имеющиеся наличные')
else
begin
sum -= stavka;
Writeln('Введите число от 1 до 36');
var number := random(1, 36);
var getnumber := ReadInteger;
if (getnumber < 1) or (getnumber > 36) then
Writeln('Неверное число. Вы потеряли ставку!')
else
if number = getnumber then
begin
Writeln('Вы угадали! Вы получаете 36х ставку');
sum += (36 * stavka);
end
else
Writeln('Не угадали. Вы потеряли ставку!')
end;
writeln;
Writeln('Имя игрока ', name);
Writeln('Текущие деньги ', sum);
writeln;
if (sum <= 0) then
begin
Writeln(name, ' , Вы Проиграли! Надеюсь, Вам повезет в следующий раз');
break;
end;
end;
end.

Uses Crt;
const
  n=300;
type
  V=array[1..n,1..3] of 0..5;
function Cnt4(var a:V):integer;
 { Количество учеников со средним выше 4 }
var
  i,j,k:integer;
  sb:real;
begin
  k:=0;
  for i:=1 to n do
  begin
    sb:=0;
    for j:=1 to 3 do sb:=sb+a[i,j];
    sB:=sb/3;
    if sb>4 then
    Inc(k);
  end;
  Cnt4:=k
end;

var
  i,j:integer;
  M:V;
begin
  ClrScr;
  Writeln('Для каждого ученика вводите через пробел три его оценки');
  for i:=1 to n do
  begin
    Write(i,': ');
    for j:=1 to 3 do Read(M[i,j])
  end;
  Write('Количество учеников со средним выше 4: ');
  Writeln(Cnt4(M),' ');
  ReadKey
end.