ПОМОГИТЕ С ПРОГРАММОЙ. Язык #паскаль. Дана строка, состоящая из русских слов,…

Program number3; var str: string; i: integer; shortest, longest, current: integer; begin readln (str); shortest: =255; longest: =0; current: =0; for i: =1 to length (str) do begin if (str[i] <> ') then current: =current+1 else begin if current > longest then longest: =current; current: =0; end; end; if current > longest then longest: =current; writeln (longest); readln; end.