delphi基本问题

Question

大家帮忙看看，我是初学者：
uses
  SysUtils;
  //procedure Hello(str:string);
  function Hello(i:string):string;
  begin
  var
  t:string;
  Writeln('programing');
  t:=i;
  result:-t;
  end ;
  var
  str:string;
begin
  { TODO -oUser -cConsole Main : Insert code here }     Read(str);
     Hello(str);end.
程序的错误在哪儿？

Answer 1

  function Hello(i:string):string; 
  var ///////声明要在begin前面
  t:string; 
  begin 
  Writeln('programing'); 
  t:=i; 
  result:=t; 
  end ;   var 
  str:string; 
  begin 
     Read(str); 
     Hello(str); end.