[AVL]

Для ввода/вывода на экран можно юзать такие функции:

function read(s,d:string;k:integer):integer;
var
 i:integer;
 ok,clicked:command;
begin
 showtextbox(s,d,k,TF_NUMERIC);
 ok:=createcommand('OK',CM_OK,1);
 addcommand(ok);
 repeat
  clicked:=getclickedcommand;
  delay(10);
 until clicked<>emptycommand;
 input:=stringtointeger(gettextboxstring);
 showcanvas;
end;

procedure write(t:string);
begin
 setcolor(255,255,255);
 fillrect(0,0,getwidth,getheight);
 setcolor(0,0,0);
 drawtext(t,0,0);
 repaint;
end;