Nejkratší slovo ve větě. – Pascal – Fórum – Programujte.com

Ahoj, dělám ročníkovou práci, a trošku jsem se zasekl když jsem měl počítat a vypsat nejkratší slovo ve větě... Počítá mi to totiž i mezery :/ Byl bych moc vděčný, když by mi někdo pomohl :/ Děkuji (Příkládám proceduru) 

procedure min;
begin;
    Tstring:='';
  minslovo:='';
  for i:=1 to length(Tveta) do
    begin
      if not(Tveta[i] in [' ','.',',','!','?'])
        then
          Tstring:=Tstring+Tveta[i]
          else;
          begin
            if length(Tstring)<length(minslovo)
              then minslovo:=Tstring;
            Tstring:='';
       end
    end;
  writeln('Nejkratsi slovo je: ', minslovo,' (',length(minslovo),' znaku)');
end;

#1 JaNevimCoDelat
Co to znamená "Počítá mi to i mezery"?

Jestli dobře vidím máš minslovo inicializované na prázdný řetězec (délka nula), takže ať najdeš sebekratší slovo, žádné nebude kratší než slovo o nula znacích. Tak zkus před hledáním uložit do minslovo[0]:=#255;

To by už mohlo něco aji dělat...

#2 JoDiK
Tak asi ne, to není jediná chyba. Co ten středník za else???? No a další chyba je v tom procházení. Když za tečkou bude mezera (což by měla být, tak to přece ještě neznamená, že už máš další nové slovo...

Přidej tam ještě podmínku na délku nového slova... jen když je větší jak nula...