{$codepage cp866}

{$ifdef unix}
uses
  cwstring;
{$endif}
var
  s: ansistring;
  ws, ws3: widestring;
begin
    SetMultiByteConversionCodePage(866);
    // must not be converted
    s := '£';
    if (length(s)<>1) or
       (s[1]<> #163) then
      halt(1);

    ws := '££';
    writeln(ws);
    s:=ws;
    ws:=s;

    ws3 := '£';
    if ws3[1]<>ws[1] then
      halt(2);
    writeln(ws3);
    s:=ws3;
    ws3:=s;

    delete(ws,1,1);

    if (ws<>ws3) then
      halt(3);
end.
