рекурсия на делфи

[sergi]

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

procedure TForm1.Button1Click(Sender: TObject);
type
    arr=array [1..10] of char;
var
    a:arr;
    i,k,b:integer;
    j1:integer;
    a1:char;
function next:char;
var
  j:integer;
begin
  i:=i+1;
  j:=i;
  if a[j]=' ' then k:=0;
  if a[j]='.' then
  else
    next:=next + a[j1];
end;
begin
      i:=0;
  for j1:=0 to memo1.Lines.Count-1 do a[j1+1]:=memo1.lines[j1];
   a[j1]:=next;
   edit1.Text:=inttostr(k);
end;