freepascal.compiler/tests/test/twide3.pp

{$codepage utf-8}

{$mode objfpc}
uses
{$ifdef unix}
  cwstring,
{$endif}
  sysutils;

{$i+}

var
  t: text;
  w: widestring;
  a: ansistring;

begin
  assign(t,'twide3.txt');
  rewrite(t);
  writeln(t,'łóżka');
  close(t);
  reset(t);
  try
    readln(t,a);
    w:=a;
    if (w<>'łóżka') then
      raise Exception.create('wrong string read');
  finally
    close(t);
    erase(t);
  end;
end.