Задача с произвольной строкой символов

[Dop]

Здравствуйте, помогите пожалуйста решить задачу по информатике,на паскале, с 1 справился а вот вторая, никак не додумаюсь:
Дана произвольная строка символов.Определить в какой половине строки находится слово с наименьшим количеством символов. Выдать сообщение ("в 1 половине", или "во второй половине", или "по центру").Предполагается, что самое длинное слово-одно.

[Mad_Cat]

в какой половине строки находится слово с наименьшим количеством символов

как то не вяжется с

Предполагается, что самое длинное слово-одно

[Dop]

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

как то не вяжется с

ну вот такое вот,непонятное условие задачи

[Mad_Cat]

uses
  crt;
const
  dividers=[' ',',','.',';',':','-','=','+'];{дописать нужные}
var
  s,temp,min:string;
  i,k:integer;
begin
  clrscr;
  writeln('Введите строку...');
  readln(s);
  temp:='';
  min:=s;k=1;
s:=s+' ';
  {пробегаем всю строку посимвольно}
  for i:=1 to length(s) do
  begin
    if not (s[i] in dividers) then
      temp:=temp+s[i];
    if (s[i] in dividers) or (i=length(s)) then
      if temp<>'' then
      begin
        if Length(temp)<Length(min) then
         begin min:=temp; k:=i-length(min);end;
        temp:='';
      end;
  end;
  writeln('Самое короткое: ',min)
if k>length(s) div 2 then writeln('во второй половине') else
if k<length(s) div 2 then writeln('в первой половине') else
writeln('по центру');
end.

[Dop]

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

const
  dividers=[' ',',','.',';',':','-','=','+'];{дописать нужные}

Мы такого не проходили, начнёт гнать что-нить училка

[Stilet]

Мы такого не проходили, начнёт гнать что-нить училка

Что хисту не хватит почитать по паскалю описание про множества, а потом обьяснить ей?
Тогда вот тебе дробилка строки на слова:
http://www.programmersforum.ru/showt...369#post398369
Далее по циклу пройдись и узнай у какого слова (элемента массива) длина менее всех. А потом если

(кол-во слов div 2)<номера Этого слова THEN слово в первой половине предложения

[Dop]

вот написал но помогите доделать

program program2;

var stroka:string;
minlengthNEW, minlength, position, slovolength:integer;
i:integer;

begin
readln(stroka);
minlength:=length(stroka);

for i:=1 to length(stroka) do begin

    if (stroka[i] = ' ') or (i = length(stroka)) then begin            
            if minlengthNEW<=minlength then begin
            minlength := minlengthNEW;
            if (i = length(stroka)) then begin
            slovolength := minlengthNEW+1;
            position:=i-minlengthNEW-1;
            end
            else begin
            slovolength := minlengthNEW-1;
            position:=i-minlengthNEW-1;
            end;
            end;
    minlengthNEW:=0
    end
    else begin
        minlengthNEW := minlengthNEW+ 1;
    end

end;

if position+(slovolength/2) > length(stroka)/2 then begin
writeln('Справа');
end
else if position+(slovolength/2) < length(stroka)/2 then begin
writeln('Слева');
end
else begin
writeln('по центру');
end;

writeln(position, slovolength);

end.