Код не работает,помогите найти ошибку

[shadezx]

Смысл в том что максимальное выводит а минимальное нет.

program Project17;

{$APPTYPE CONSOLE}

uses
  SysUtils;

var s:string; a:array[1..100] of string;
  min,max,i,v,count:integer;
begin
writeln('vvedite ');
readln(s);
 count:=1;
 i:=1; while (i<=length(s)) do begin
   if s[i]=' ' then
   begin
    inc(count);
    inc(i);
   end;
   a[count]:=a[count]+s[i];
   inc(i);
 end;
max:= 1;
min:=1;
for i := 2 to Length(s) do
     begin
     if Length(a[max]) < Length(a[i]) then
            max := i;
       if Length(a[min]) < Length(a[max]) then
            min := i;
      end;
WriteLn (a[max]);
WriteLn (a[min]);
  readln;
end.

[type_Oleg]

Может быть так.

for i := 2 to Length(a) do        // испр 
     begin
     if Length(a[max]) < Length(a[i]) then
            max := i;
       if Length(a[i]) < Length(a[min]) then    // испр
            min := i;
      end;

[shadezx]

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

Может быть так.

for i := 2 to Length(a) do        // испр 
     begin
     if Length(a[max]) < Length(a[i]) then
            max := i;
       if Length(a[i]) < Length(a[min]) then    // испр
            min := i;
      end;

всеравно ищет только максимальный
а минимальный нет

[ZX Spectrum-128]

Тогда отрассируйте программу, посмотрите в каком куске кода неверно.

[Serge_Bliznykov]

включаю телепатор....

А в качестве слова с минимальной длиной, скорее всего, находит слово, состоящее из пробела!
вот и весь ответ!