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

// The begin statement always starts the code part of a subroutine
Begin
  // Use a for block to assign to both arrays
  for i := 1 to 2 do Begin
    myChars[i] := Chr(i+64);
    myBytes[i] := i+64;
  end;

  // Use a for block to observe the contents
  for i := 1 to 2 do Begin
    Writeln('myChars[',i,'] = ',myChars[i]);
    Writeln('myBytes[',i,'] = ',myBytes[i]);
  end;
end.