Написан код по заданию:Помогите пожалуйста с его корректировкой,может быть,тут есть части(имею в виду без чего можно обойтись чтобы программа работала) чего-нибудь лишнего или можно что-то поменять чтобы код покороче был: {Дана последовательность, содержащая от 2 до 50 слов, в каждом из которых от 1 до 8 строчных латинских букв; между соседними словами – пробел, за последним словом – точка. Вывести тo слово последовательности, у которого длина максимальна.} var s,sl: string; i,dmax: integer; begin write('Введите строку '); readln(s); s:=s+' '; sl:='';dmax:=0; for i:=1 to length(s) do if s[i]<>' ' then sl:=sl+s[i] else begin if length(sl)>dmax then begin dmax:=length(sl); end; sl:=''; end; for i:=1 to length(s) do if s[i]<>' ' then sl:=sl+s[i] else begin if length(sl)=dmax then write('Самое длинное слово:',sl,' '); sl:=''; end; end.