хотя бы на два задания ​

Так, как размер одного символа составляет 1 бит, то размер 2000 символов равен 2000 бит. Далее:
1)Разберёмся с размерностью жёсткого диска: 
Если 1 байт=8 бит, то 1 килобайт=1024 байта=1024*8 бит=8192 бит, а 1 мегабайт=1024 килобайта=1024*8192 бит=8388608 бит. Разобрались.
Если размер реферата 2000 бит, то можно узнать сколько рефератов вместит этот жёсткий диск:
    рефератов.
2)Поступаем аналогичным методом:
1 килобайт=8192 бит.
Тогда съёмный диск вместит =4 реферата.

Далее нужно определить время печати при данной скорости 3200 бит/сек.
Так как размер реферата равен 2000 бит, то он распечатается за  секунды.

Const
  m = 8;
  n = 7;

var
  a: array[1..m, 1..n] of integer;
  i, j: integer;

begin
  writeln('Введите через пробел ', m, ' чисел');
  for i := 1 to m do
  begin
    Read(a[i, 1]);
    for j := 2 to n do a[i, j] := a[i, 1]
  end;
  Writeln('Сформированный массив');
  for i := 1 to m do
  begin
    for j := 1 to n do Write(a[i, j]:5);
    Writeln
  end
end.

Тестовое решение:

Введите через пробел 8 чисел
4 -6 10 93 345 -32 0 11
Сформированный массив
    4    4    4    4    4    4    4
   -6   -6   -6   -6   -6   -6   -6
   10   10   10   10   10   10   10
   93   93   93   93   93   93   93
  345  345  345  345  345  345  345
  -32  -32  -32  -32  -32  -32  -32
    0    0    0    0    0    0    0
   11   11   11   11   11   11   11