Не выводит максимальное значение

[qpuTuJlb]

Добрый день, задали написать программу которая будет находить самое длинное слово, программа запускается и выводит сообщение но без этого самого длинного слова, в чем дело?

var
s,max:string;
i,p,n:integer;
mas:array[1..100] of string;
c:char;
begin
repeat
i:=0;
p:=pos(' ',s);
if pos(c,copy(s,1,p-1))<>0 then begin
mas[i]:=copy(s,1,p-1);
end;
delete(s,1,p);
until p=0;
n:=i;
if pos(c,copy(s,1,length(s)-1))<>0 then begin
n:=i+1; mas[n]:=copy(s,1,length(s)-1);
end;
for i:=2 to n do begin
if length(mas[i])>length(max) then
max:=mas[i];
end;
Showmessage('Самое длинное слово:'+max);
end;
end.

[Sibedir]

var
  Str: String;
  StrArr: array [1..100] of string;
  i, j, Max, Count: Integer;
  SpaceFlag: Boolean;
begin
  // Читаем строку
  Str := Edit1.Text;

  // Удаляем двойные пробелы
  Count := Length (Str);
  SpaceFlag := True;
  j := 1;
  for i := 1 to Count do begin
    if Str [i] = ' ' then begin
      if i = Count then Break;
      if (not SpaceFlag) then begin
        Str[j] := Str[i];
        Inc(j);
        SpaceFlag := True;
      end;
    end
    else begin
      Str[j] := Str[i];
      Inc(j);
      SpaceFlag := False;
    end;
  end;
  SetLength (Str, j-1);

  // Заполняем StrArr
  Count := 0;
  i := Pos (' ', Str);
  // отсекаем каждое слово (от начала до ' ')
  while i <> 0 do begin
    Inc (Count);
    StrArr [Count] := Copy (Str, 1, i-1);
    Delete (Str, 1, i);
    i := Pos (' ', Str);
  end;
  // сохраняем 'хвост'
  if Str <> ' ' then begin
    Inc (Count);
    StrArr [Count] := Str;
  end;

  if Count > 0 then begin
    // Находим самую длинную строку
    Max := 1;
    for i := 2 to Count do begin
      if Length (StrArr[i]) > Length (StrArr[Max]) then begin
        Max := i;
      end;
    end;

    // Выводим результат
    Memo1.Lines.Clear;
    for i := 1 to Count do
      Memo1.Lines.Add (StrArr [i]);
    Showmessage('Самое длинное слово: ' + StrArr [Max]);
  end;
end;

---------------------------------------------------------------------------------------------------------

var
s,max:string;
i,p,n:integer;
mas:array[1..100] of string;
c:char;
begin
// s - не определено
// c - не определено
repeat
i:=0; // почему в теле цикла? (Ведь он у вас обнуляется каждую итерацию)
p:=pos(' ',s);
if pos(c,copy(s,1,p-1))<>0 then begin
// счетчик i нужно увеличивать (i := i + 1)
mas[i]:=copy(s,1,p-1);
end;
delete(s,1,p);
until p=0;
n:=i;
if pos(c,copy(s,1,length(s)-1))<>0 then begin // Зачем length(s)-1
n:=i+1; mas[n]:=copy(s,1,length(s)-1); // Зачем length(s)-1
end;
// max не инициализирован
for i:=2 to n do begin
if length(mas[i])>length(max) then
max:=mas[i];
end;
Showmessage('Самое длинное слово:'+max);
end;

=>

var
  s,max:string;
  i,p,n:integer;
  mas:array[1..100] of string;
  c:char;
begin
  s := Edit1.Text;
  c := '1';

  i:=0;
  repeat
    p:=pos(' ',s);
    if pos(c,copy(s,1,p-1))<>0 then begin
      Inc(i);
      mas[i]:=copy(s,1,p-1);
    end;
    delete(s,1,p);
  until p=0;
  n:=i;
  if pos(c,copy(s,1,length(s)))<>0 then begin
    n:=i+1;
    mas[n]:=copy(s,1,length(s));
  end;
  max := mas[1];
  for i:=2 to n do begin
    if length(mas[i])>length(max) then
      max:=mas[i];
  end;

  Memo1.Lines.Clear;
  for i := 1 to n do
    Memo1.Lines.Add (mas [i]);
  Showmessage('Самое длинное слово:'+max);
end;

[qpuTuJlb]

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

var
  s,max:string;
  i,p,n:integer;
  mas:array[1..100] of string;
  c:char;
begin
  s := Edit1.Text;
  c := '1';

  i:=0;
  repeat
    p:=pos(' ',s);
    if pos(c,copy(s,1,p-1))<>0 then begin
      Inc(i);
      mas[i]:=copy(s,1,p-1);
    end;
    delete(s,1,p);
  until p=0;
  n:=i;
  if pos(c,copy(s,1,length(s)))<>0 then begin
    n:=i+1;
    mas[n]:=copy(s,1,length(s));
  end;
  max := mas[1];
  for i:=2 to n do begin
    if length(mas[i])>length(max) then
      max:=mas[i];
  end;

  Memo1.Lines.Clear;
  for i := 1 to n do
    Memo1.Lines.Add (mas [i]);
  Showmessage('Самое длинное слово:'+max);
end;

Что это?

c := '1';

Сообщение выводит слово где есть цифра 1 а не то которое самое длинное

[Аватар]

Так будет проще, но знаки препинания считаются частью слова. Можно концовки выделенных слов анализировать на наличие этих знаков и отбрасывать их

procedure TForm1.Button1Click(Sender: TObject);
var s,s1,s2: String;
    i: Integer;
begin
  s:='Добрый день, задали написать программу которая будет находить самое длинное слово, программа запускается и выводит сообщение но без этого самого длинного слова, в чем дело?';
  s2:='';
  while s<>'' do begin
    i:=Pos(' ',s);
    if i=0 then i:=Length(s)+1;
    s1:=Copy(s,1,i-1);
    s:=Trim(Copy(s,i+1,Length(s)-i));
    if Length(s1)>Length(s2) then s2:=s1;
  end;
  Label1.Caption:=s2;
end;

[qpuTuJlb]

спасибо, все заработало

[Sibedir]

Что это?

А это ваш же код но подправленный. Вы сами придумали c. Я просто подумал, что вам этот c и массив нужны будут. А вообще да, прямое решение задачи у Аватар'а.