[PS11011010]

Unterminated string - лишний символ '
А там, где куча Until НУЖНО написать ОДИН until

Код:

until Length(ArdeiDulce)=0 or Length(Ardeimarinat)=0 or Length(BNeo)=0 or Length(Brinza)=0 or Length(CartofiFree)=0...;