var
  n: Integer;
  ch: Integer;
  ETX: Integer;
  LRC: Integer;
begin
  ...
  LRC := 0;
  for ch := 1 to n do
    LRC := LRC xor Byte(ch);
  LRC := LRC xor ETX;
end;