[sidav]

program textik;
uses font32;
var
a:integer;
s:string;

begin
init(1);
textwindow(0,0,128,160);
s:='Сргсл рпварп оьпр глпгл';
a:=format(s,0);
drawtextwindow;
repaint;
delay(2500);
end.



Это тоже не пашет...