Ввести элементы двухмерного массива с использованием генератора случайных чисел в произвольном диапазоне

uses crt;
var a:array[1..5,1..8] of integer;
    i,j:byte;
begin
clrscr;
randomize;
for i:=1 to 5 do
for j:=1 to 8 do
a[i,j]:=random(40)+10;
writeln('Двухмерный массив из 40 элементов:');
for i:=1 to 5 do
 begin
  for j:=1 to 8 do
  write(a[i,j]:4);
  writeln;
 end;
readln
end.

uses crt;
var a:array[1..5,1..7] of integer;
    b:array[1..35] of integer;
    i,j,k:byte;
begin
clrscr;
randomize;
for i:=1 to 5 do
for j:=1 to 7 do
a[i,j]:=random(10);
writeln('Двухмерный массив из 35 элементов:');
k:=0;
for i:=1 to 5 do
 begin
  for j:=1 to 7 do
   begin
    write(a[i,j]:3);
    k:=k+1;
    b[k]:=a[i,j];
   end;
  writeln;
 end;
writeln;
writeln('Вектор из 35 элементов двухмерного массива:');
for i:=1 to k do
write(b[i],' ');
readln
end.

uses crt;
var a:array[1..5,1..7] of integer;
    b:array[1..35] of integer;
    i,j,k:byte;
begin
clrscr;
randomize;
writeln('Вектор из 35 элементов:');
for i:=1 to 35 do
 begin
  b[i]:=random(10);
  write(b[i],' ');
 end;
writeln;
writeln;
writeln('Двухмерный массив из 35 элементов вектора:');
for i:=1 to 5 do
 begin
  for j:=1 to 7 do
   begin
    a[i,j]:=b[j+7*(i-1)];
    write(a[i,j]:3);
   end;
  writeln;
 end;
readln
end.