Технический форум - Небольшой lisp на паскале

хочу написать маленький лисп на паскале вроде REPL- read-eval-print-loop сделал.

Код:

program TLisp;



var s: string;



{ Read }

procedure GetChar;

begin

 Readln(s);

end;



{print}

procedure print(s:string);

begin

 write(s);

end;



{eval}

procedure eval( var s:string);

begin

 if s='q' then

  halt;

end;



{ Main Program }



begin

 while true do

  begin

   print('TLisp>');

   GetChar;

   eval(s);

   print(s);

   print(#10);

  end;

end.

вопрос насколько правильно? и так же вопрос что следует делать дальше кто знает??