Написать фрагмент программы, позволяющей сгенерировать и вывести на экран одномерный массив из 50 целых чисел в диапазон - Turbo Pascal

Формулировка задачи:

Подскажите пожалуйста зачем не записывает в файл, т.е. на экран выходит а файл пустой.

Var
 a:array[1..100] of byte;
 i:byte;
 b:text;
begin
randomize;
assign(b,'first.txt');
rewrite(b);
for i:=1 to 50 do
begin a[i]:=random(100)+1;
Write(a[i],', ');
end;
Writeln(b,' ',a[i]);
end.
Writeln;
close(b);
readln;
end.

Задание такое: "Написать фрагмент программы, позволяющей сгенерировать и вывести на экран одномерный массив из 50 целых чисел в диапазоне от 0 до 100".

Решение задачи: «Написать фрагмент программы, позволяющей сгенерировать и вывести на экран одномерный массив из 50 целых чисел в диапазон»

Листинг программы

for i:=1 to 50 do
  begin
   a[i]:=random(100)+1;
   if i<50 then
    begin
     Write(a[i],', ');
     Write(b,a[i],',');
    end
   else
    begin
     Write(a[i],'.');
     Write(b,a[i],'.');
    end
  end;
close(b);
end.

Объяснение кода листинга программы

Создается пустой массив a размером 50.
В каждой итерации цикла заполняется элемент массива a случайным числом от 1 до 100.
Если текущий элемент массива a меньше 50, то он выводится на экран вместе с символом запятой и пробела.
Если текущий элемент массива a равен 50, то он выводится на экран вместе с символом точки.
В конце программы файл b закрывается.