[im_zorg]

Почему при запуске сразу-же выкидывает?

Program wiki;
uses text,resloader;
var 
s:string;
key:integer;
Begin
	s:=ReadLinesBlock('wiki.txt', 1, 5, 1);
	text.init;
	text.set_text_par(0, 0, 128, 160, 1, 0, 0, 0, s);
	repeat
 key:=keytoaction(getkeypressed);
 if key=GA_UP then text.mode_up;
 if key=GA_DOWN then text.mode_down;
 setColor(0,0,0);
 text.draw_mult_str;
 Repaint;	
 delay(50);
 setColor(0,255,0);
	fillRect(0,0,GetWidth,GetHeight);
 until false;
End.