паскаль_строки

[Пе4енька]

необходимо в заданной строке Х найти слово максимальной длины.

[mss]

И что мешает ?

[Пе4енька]

незнание скорее всего...

[mss]

Незнание ЧЕГО конкретно ?)

[Пе4енька]

ну не знаю я как составить эту программу, не представляю даже! вот...

[mss]

Так очень просто же - делишь строку на слова по указанному в задании критерию и для каждого из слов подсчитываешь его длину)

[Sparkman]

const b:set of char=['A'..'Z','a'..'z'];
var s:string;
    max,n,i:integer;
begin
     write('Enter string: ');
     readln(s);
     for i:=1 to length(s) do
     if s[i] in b then
        inc(n)
     else if n>max then
     begin
          max:=n;
          n:=0;
     end;
     if s[i] in b then
     if n>max then max:=n;
     writeln('Max length: ',max);
     readln;
end.

ой.. не то

[mss]

ой.. не то

Поспешишь - людей насмешишь)

[Sparkman]

Сообщение от mss

Поспешишь - людей насмешишь)

const b:set of char=['A'..'Z','a'..'z'];
var x,t,s:string;
    i:integer;
begin
     write('Enter string: ');
     readln(x);
     for i:=1 to length(x) do
     if x[i] in b then
        t:=t+x[i]
     else if length(t)>length(s) then
     begin
          s:=t;
          t:='';
     end;
     if x[i] in b then
     if length(t)>length(s) then
     s:=t;
     writeln('Max length word: ',s);
     readln;
end.

[mss]

А где в задании сказано что "слово" может содержать исключительно символы латинского алфавита ?)
Нигде не сказано)