Pascal/Turbo Pascal - Error: Call by var for arg no. 2 has to match exactly: Got "SmallInt" expected "ShortString"

Filtrado por el usuario: xve

Filtrado por el usuario 'xve' (Eliminar fitro)

capture números que el usuario ingrese (uno por uno) hasta que el número ingresado sea el cero.

Problema para ingresar datos en mysql