Составить программу на паскале находящюю самое длинное слово в строке…

var s: string; i,n,max: byte; beginn: =0; i: =1; max: =0; write ('Введите s -> '); readln (s); while i <= length (s) do begin if (i=1) or (s[i]=') then begin if i <> 1 then inc (i); if (i <= length (s) and (s[i]='a') or (s[i]='A') thenwhile i <= length (s) do if s[i]<>' then begininc (n); inc (i); end else break; end; inc (i); if max комментировать