Lazarus zdědil po pascalu cyklus reperat, ten je podle mě na to vhodnější (kód se musí provst minimálně jsdnou)
Na že by céčko něco takového nemělo (do while), ale moc se to nepoužívá, ani nevim proč, jestli kvůli těm třem klikům navíc.

Osobně bych to viděl na:

zvaženo:=false;
repeat
  přečíst z váhy
  když má na začátku ST (a podařilo se správně přečíst i zbytek atd.), nastav zváženo:=true
until zvazeno

To musí fungovat. Ještě by bylo dobré dát tam nějaký timeout, aby program neuváznul v té smyčce navěky. Pokud to načtení netrvá moc dlouho, tak bych to před dalším zpracováním načetl třeba třikrát a porovnal výsledky, aby se eliminovala možnost chyby přenosu. Protože jestli ten textovej řetězec neobsahuje žádnou konktrolu (jako třeba GPS, kde je xor kontrola), klidně chyba jednoho bitu udělá ze 1450 kilo třeba 3450 (samozřejmě v lepším případě udělá údaj nesmyslným, ale když jsem koukal na záznamy z GPS, hlavně na ty věty, které neprošly kontrolou, tak tam byly právě i takové, kde by se chyba jinak nepoznala, i když většina byla chybná na první pohled (třeba useknutá nebo s nesmyslnými znaky nebo nějak jinak poškozená)).