Якщо двічі клацнути елемент Button1,створюється процедура із заголовком
А-procedure TForm1.FormCreate(Sender:TObject);
Б-procedure TForm1.Button1MouseDown(Sender:TObject;Button:TMouseButton;Shift:TShiftState;X,Y:Integer);
В-procedure TForm1.FormClick(Sender:TObject);
Г-procedure TForm1.Button1Click(Sender:TObject);

Написано и протестировано в PascalABC.NET (версия 2.2, сборка 842)
const
 s='велосипедист';
var
 t:='кытунак';
 p:string;
begin
  // 1
  Writeln(LeftStr(s,9),', ',
    s[12]+s[2]+s[5]+s[12]+s[4],', ',
    s[4]+Copy(s,3,2)+s[1]+s[4]);
  // 2
  Writeln('Позиция буквы "д" в слове "'+s+'" равна ',s.IndexOf('д')+1);
  // 3
  Write('Было: ',t,', стало: ');
  t[2]:='о'; t[4]:='е'; t:=t.Replace('а','о');
  Writeln(t);
  // 4
  Write('Коды символов слова ',t,': ');
  foreach c:char in t do Write(Ord(c),' ');
  Writeln;
  // 5
  Write('В слове ',t,' количество букв ');
  if Odd(t.Length) then Writeln('нечетное') else Writeln('четное')
end.

Результат выполнения программы:
велосипед, тесто, олово
Позиция буквы "д" в слове "велосипедист" равна 9
Было: кытунак, стало: котенок
Коды символов слова котенок: 234 238 242 229 237 238 234
В слове котенок количество букв нечетное

№1)

16 бит = 16 / 8 байт = 2 байта

64 байта = 64 * 8 байта = 512 бит

1 Кб = 1024 байт = 8 * 1024 бит = 8192 бит

2560 байт = 2560 / 1024 Кб = 2,5 Кб ≈ 0,00241 Мб

2 Гб = 1024 * 2 Мб = 2048 Мб

№2)

200 байт ≈ 0,1953 Кб

0,1953 Кб > 0,25 Кб => 200 байт > 0,25 Кб

1536 байт = 1,5 Кб

1,5 Кб = 1,5 Кб => 1536 байт = 1,5 Кб

3 байта = 3*8 бит = 24 бит

24 бит = 24 бит => 3 байта = 24 бита

1000 бит = 125 байт = 0,122 Кб

0,122 Кб < 1 Кб => 1000 бит < 1 Кб

№3)

1) 2 Мб = 2048 Кб

2048 / 100 ≈ 20 файлов можно разместить на дискете

2) 4 Мб = 4096 Кб

4096 / 100 ≈ 40 файлов можно разместить на дискете