DELPHI(рекурсия)

[sergi]

Помогите пожайлуста найти ошибки в задаче.
Описать функцию next без парам-ов, которая считывает из входного файла первую литеру, отличную от пробела, и объявляет её своим значением. Использовать эту функцию для подсчёта k-кол-ва отличных от пробела литер текста, который задан во входном файле и за которым следует точка.

procedure TForm1.Button1Click(Sender: TObject);
var
   k,i:integer;
   a:string;
   b:char;
  function next:char;
   var i:integer;
   begin
   i:=i+1;
     if a[i]<>' ' then
      if i=length(a) then k:=length(a)-1
      else next:=next;
   end;
begin
i:=0;
a:=edit1.text;
b:=next;
edit2.Text:=inttostr(k);
end;
end.

___________
Код нужно оформлять по правилам:
тегом [CODE]..[/СODE] (это кнопочка с решёточкой #)
Не забывайте об этом!
Модератор.