mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-04-29 12:43:45 +02:00
33 lines
401 B
ObjectPascal
33 lines
401 B
ObjectPascal
{$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.
|