Самое длинное слово, Нужно помочь с решением Опции

[wazler]

Самое длинное слово

маленькая помощь

вводим три строки s и s1 и a;
сразу присваиваем им пустое значение s=""; s1="";
введем переменные счетчики l,i,n=0,m=0 целочисленного типа
читаем строку a (в С++ getline(cin,a);)
переменной l присваем длинну строки a(В С++ l=strlen(a);)
Пробегаем c 0 до l с счетчиком i и проверяем
если i-ый элемент строчки не равен пробелу, то
соединяем строчку s1 и i-ый элемент строки a в строчку s1
к n прибавляем 1;
если иначе то
проверяем если n>m то
s=s1;
m=n;
после проверки
n=0;
s1="";
теперь когда цикл закончился, делаем предыдущую проверку опять
выводим s и с новой строчки m

Прошу помочь мне, пжл)

[potter-by]

Попробуйте так

{Программа поиска самого длинного слова в предложении}
var str,s,s_tmp:string;
l,l_tmp,pos_pr:integer;
begin
writeln('Введите предложение');
readln(str);
str:=str+' ';
s:='';
l:=0;
while str<>'' do
begin
pos_pr:=Pos(' ',str);
//writeln(pos_pr);
s_tmp:=Copy(str,1,pos_pr-1);
l_tmp:=length(s_tmp);
//writeln(s_tmp,'  ',l_tmp);
if l_tmp>l then
begin
l:=l_tmp;
s:=s_tmp;
end;
Delete(str,1,pos_pr);
end;
writeln('Самое длинное слово ',s);
writeln('Его длина ',l);
end.

Доработайте, если самых длинных слов несколько. Программа работает, если самое длинное слово одно в предложении