{$codepage utf8}
program tb0696;
var
  ar: PChar = 'Ё';
  ar2: PChar;
  l, i: SizeInt;
begin
 Writeln(strlen(ar));  //Error
  Writeln(Length(Ar)); //Error
  l := Length(ar);
  ar2 := 'Ё';
  Writeln(strlen(ar2)); //Ok
  Writeln(Length(Ar2)); //Ok
  if l <> Length(ar2) then
    Halt(1);
  for i := 0 to l - 1 do
    if ar[i] <> ar2[i] then
      Halt(2 + i);
  //Readln;
end.