while (dec <> 's') do //donde tienes la etiqueta "start" begin ... writeln('desea hacer otra operacion? s/n'); readln(dec); end