Дана строка s, состоящая из слов, разделённых пробелами. найдите в строке s слово максимальной длины. программа на паскаль

Var s: string; i,m,n: integer; begin readln(s); n: =-1; for i: =1 to length(s) do begin n+=1; if (s[i]=' ') or (i=length(s)) then begin    if n> m then m: =n;   n: =0; end; end; writeln(m); end.

// pascalabc.net 3.3, сборка 1625 от 17.01.2018 // внимание! если программа не работает, обновите версию! procedure psum(a,b: integer; var r: integer); begin   r: =a.to(b).sum end; function fsum(a,b: integer): =a.to(b).sum; begin   var (a,b): =readinteger2('начало и конец интервала: ');   var c: integer;   psum(a,b,c);   writeln('сумма при процедуры: ',c);   writeln('сумма при функции  : ',fsum(a,b)) end. пример начало и конец интервала: 3 28 сумма при процедуры: 403 сумма при функции  : 403 велосипедист на тренировке в первый день проехал 19 км за 54 минуты. в каждый последующий день он проезжал этот же путь на 2 минуты быстрее, чем в предыдущий. найти среднюю скорость велосипедиста, которую он показал, тренируясь неделю. решение средняя скорость будет равна отношению всего пройденного пути к затраченному времени. путь за неделю составит 19×7 км. время может быть найдено как 54+(54-2)+(54-4)+ function t(a0,h: real; k: integer): real; begin   result: =0;   var ts: =a0;   loop k do begin       result+=ts; ts-=h       end;   result/=60 end; procedure phisics(n: integer; t0,dt,s1: real); begin   var s: =n*s1;   var v: =s/t(t0,dt,n);   writeln('средняя скорость ',v,' км/час') end; begin   var n: =readinteger('количество дней: ');   var s: =readreal('длина трека, км: ');   var (t0,th): =readreal2('время в первый день и величина улучшения, мин: ');   phisics(n,t0,th,s) end. результат количество дней: 7 длина трека, км: 19 время в первый день и величина улучшения, мин: 54 2 средняя скорость 23.75 км/час

// pascalabc.net 3.3, сборка 1625 от 17.01.2018 // внимание! если программа не работает, обновите версию! procedure psumpos(m: array of integer; var r: integer); begin   r: =m.where(t-> t> 0).sum end; function fsumpos(m: array of integer): =m.where(t-> t> 0).sum; begin   var a: =arrrandom(readinteger('n=',50); a.println;   var b: =arrrandom(readinteger('n=',50); b.println;   write('сумма положительных элементов а: ');   var s: integer;   psumpos(a,s);   writeln(s);   writeln('сумма положительных элементов b: ',fsumpos(b)); end. пример n= 13 48 39 -37 -28 45 -29 18 7 -23 47 -38 -34 12 n= 14 8 -3 32 -39 11 2 -30 -9 10 43 -43 41 -34 -25 сумма положительных элементов а: 216 сумма положительных элементов b: 147