Scratch программалау ортасында түрлі-түсті пішіндер, командалар тобы​

Ура, скоро конец четверти. нужно исправить оценки.
ура, скоро конец четверти. нужно исправить оценки.
ура, скоро конец четверти. нужно исправить оценки.
ура, скоро конец четверти. нужно исправить оценки.
ура, скоро конец четверти. нужно исправить оценки.
ура, скоро конец четверти. нужно исправить оценки.
ура, скоро конец четверти. нужно исправить оценки.
ура, скоро конец четверти. нужно исправить оценки.
ура, скоро конец четверти. нужно исправить оценки.
ура, скоро конец четверти. нужно исправить оценки.
ура, скоро конец четверти. нужно исправить оценки.
ура, скоро конец четверти. нужно исправить оценки.
ура, скоро конец четверти. нужно исправить оценки.
ура, скоро конец четверти. нужно исправить оценки.
ура, скоро конец четверти. нужно исправить оценки.

program arrdiap;

var

 N, A, B, i: Integer;

 M: array of Integer;

begin

 Write ('Введите размерность массива: ');

 ReadLn (N);

 SetLength (M, N);

 Randomize;

 for i := Low (M) to High (M) do begin

   M [i] := Random (100);

   Write (M [i], ' ');

 end;

 WriteLn;

 Write ('Введите диапазон A, B: ');

 ReadLn (A, B);

 WriteLn;

 WriteLn ('Принадлежит диапазону ', A, ' - ', B, ':');

 for i := Low (M) to High (M) do begin

   if (M [i] >= A) and (M [i] <= B) then

     Write (M [i], ' ');

 end;

 ReadLn;

end.