Anonymní profil JaNevimCoDelat – 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;