Помогите написать программку на паскале по строкам

var
    s: string;
    c, n, nm, ac, acm: integer;
    iw: boolean;
begin
    write('string? ', s);
    readln(s);
    s := s + ' ';
    for c := 1 to length(s) do begin
        if not iw then
            if s[c] <> ' ' then begin
                ac := 0;
                iw := true;
                inc(n);
            end;
        if iw then begin
            if s[c] = 'a' then inc(ac);
            if s[c] = ' ' then begin
                if ac > acm then begin
                    acm := ac;
                    nm := n;
                end;
                iw := false;
            end
        end;
    end;
    if nm > 0 then writeln(nm);
end.

Я помог бы просто так. . но так лень. 50р?