🚀 go-pugleaf

Baljit Purewal wrote:

>  Hi I am lost completly please help me figure out this prolbem.I can't seem
> to find a way to add words into an array. This is my assignment down below.

I have to assume that you copied this by hand, cause if this is what is in your

ide, it wouldn't even compile..<much deleted>

> Begin
>  Assign (infile,'name1');
>  reset(infile);
>  current-word :='';
>  While not eof (infile) do
>
> Begin
>    Read(infile,char_buffer);
>    Case  char_buffer  of
>
>     'A'..'Z','a'..'z' : current_word := current_word + char_buffer;
>
>      Else
>          If current_word_word <> '' then {word is non � blank}
>            Add_word (current_word, Words,Counts);
>             Current_word:= '';
>               End;
>         End;  {case}
>      End;
> If current_word <>'' then
>     Add_word(current_word, words,counts);
>  End;
>
> Begin {main}
>
> {code}
> End. {main program}

excluding the obvious typos, I can give you a couple of hints

If [condition] then [statement];
If [condition] then
begin
[statement]
.
.
[statement]
end;

Phil