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

//PascalABC.NET 3.1 сборка 1219 (от самих создателей)
function IsPrime(x: integer): boolean;
begin
    var sqx := Round(Sqrt(x));
    var i := 2;
    while (i <= sqx) and (x mod i <> 0) do
        i += 1;
    Result := i > sqx;
end;

begin
    Range(ReadInteger('a ='), ReadInteger('b =')).Where(IsPrime).Print;
end.

ПРИЗНАКИ ИНФОРМАЦИОННОГО ОБЩЕСТВА
Осознание обществом приоритетности информации перед другим продуктом деятельности человека.
Первоосновой всех направлений деятельности человека (экономической, производственной, политической, образовательной, научной, творческой, культурной и т.п.) является информация.
Информация же является продуктом деятельности современного человека.
Информация в чистом виде (сама по себе) является предметом купли – продажи.
Равные возможности в доступе к информации всех слоев населения.
Безопасность информационного общества, информации.
Защита интеллектуальной собственности.
Взаимодействие всех структур государства и государств между собой на основе ИКТ.
Управление информационным обществом со стороны государства, общественных организаций.
Кроме положительных моментов прогнозируются и опасные тенденции:
все большее влияние на общество средств массовой информации;
информационные технологиимогут разрушить частную жизнь людей и организаций;
существует проблема отбора качественной и достоверной информации;
многим людям будет трудно адаптироваться к среде информационного общества.
существует опасность разрыва между "информационной элитой" (людьми,
занимающимися разработкой информационных технологий) и потребителями.

Program hockey;

uses
  crt;

type
  hk = record
    name: string[20];
    shyiba: record
      gol_per: integer;
      gol: integer;
      straf_time: integer
    end
  end;

var
  hokiyArray, hokiyArray01: array[1..100] of hk;
  i, n: integer;
  f: text;

begin
  Assign(f, 'test.txt');
  Rewrite(f);
  Writeln('ДИНАМО ');
  Write('Введите количество нападающих : '); Readln(n);
  for i := 1 to n do
  begin
    Writeln('');
    Writeln(' Введите данные ', i, 'нападающего');
    Write(' Введите имя : '); Readln(hokiyArray[i].name);
    Writeln('');
    Writeln;
    Write(' Количество заброшеніх шайб : ');
    Readln(hokiyArray[i].shyiba.gol_per);
    Write('Количество голевіх передач ');
    Readln(hokiyArray[i].shyiba.gol);
    Write(' Количество штрафного времени ');
    Readln(hokiyArray[i].shyiba.straf_time);
    Writeln
  end;
  Writeln;
  for i := 1 to n do
  begin
    with hokiyArray[i] do
      Writeln(f, 'ДИНАМО', name, ' ', shyiba.gol_per, ' ', shyiba.gol,
        ' ', shyiba.straf_time);
  end;
  Close(f);
 
  Assign(f, 'test01.txt');
  Rewrite(f);
  Writeln('СПАРТАК ');
  Write('Введите количество нападающих : '); Readln(n);
  for i := 1 to n do
  begin
    Writeln('');
    Writeln(' Введите данные ', i, 'нападающего');
    Write(' Введите имя : '); Readln(hokiyArray01[i].name);
    Writeln('');
    Writeln;
    Write(' Количество заброшеніх шайб : ');
    Readln(hokiyArray01[i].shyiba.gol_per);
    Write('Количество голевіх передач ');
    Readln(hokiyArray01[i].shyiba.gol);
    Write(' Количество штрафного времени ');
    Readln(hokiyArray01[i].shyiba.straf_time);
    Writeln
  end;
  Writeln;
  for i := 1 to n do
  begin
    with hokiyArray01[i] do
      Writeln(f, 'СПАРТАК', name, ' ', shyiba.gol_per, ' ', shyiba.gol,
        ' ', shyiba.straf_time);
  end;
  Close(f)
 
end.