var
  myChars : array[1..2] of char;
  myBytes : array[1..2] of Byte;
  i : Integer;

// Инструкция begin всегда начинает кодовую часть подпрограммы
Begin
  // Использование для блока for, чтобы назначить оба массива
  for i := 1 to 2 do
  Begin
    myChars[i] := Chr(i+64);
    myBytes[i] := i+64;
  end;

  // Использование для блока for, чтобы просмотреть содержание
  for i := 1 to 2 do
  Begin
    ShowMessage('myChars['+IntToStr(i)+'] = '+myChars[i]);
    ShowMessage('myBytes['+IntToStr(i)+'] = '+IntToStr(myBytes[i]));
  end;
end;