Написан код по заданию:Помогите пожалуйста с его корректировкой,может быть,тут есть

Написан код по заданию:Помогите пожалуйста с его корректировкой,может быть,здесь есть части(имею в виду без чего можно обойтись чтоб программка работала) чего-нибудь излишнего либо можно что-то поменять чтобы код пократче был:
Дана последовательность, содержащая от 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]lt;gt;' ' then sl:=sl+s[i] else
begin
if length(sl)gt;dmax then
begin
dmax:=length(sl);
end;
sl:='';
end;
for i:=1 to length(s) do
if s[i]lt;gt;' ' then sl:=sl+s[i] else
begin
if length(sl)=dmax then
write('Самое длинноватое слово:',sl,' ');
sl:='';
end;
end.

Тимур 2019-08-13 14:28:12

щас разберусь и напишу

Степа Куцер 2019-08-13 14:30:10

я конечно запутался

Милана 2019-08-13 14:37:56

ибо каким-то образом паскаль крашнулся

Vladislav 2019-08-13 14:43:00

ну тогда есть какиенибудь ещё идейки как вывести самое длинноватое слово ?

Машенька Шведько 2019-08-13 14:48:44

есть, в python-e

Сокарев Максимка 2019-08-13 14:54:26

могу написать?

Стефания Авласенкова 2019-08-13 14:57:46

Ну,давай в питоне