Нужна помощь с Pascal ABC

Question

uses graphABC; 
var a,s:integer; b:string; 
begin 
writeln('Что мне делать? '); 
writeln('1. Нарисовать окружность'); 
writeln('2. Нарисовать линию'); 
writeln('3.Посчитать количество букв в слове'); 
readln(a); 
if a=1 then circle(200,125,100); 
if a=2 then line(1,1,300,400); 
begin 
if a=3 then writeln('Введите слово'); 
readln(b); 
s:=length(b); 
writeln(s); 
if (a<1) or (a>3) then writeln ('Извините, но вы ввели некорректное число'); 
end; 
end. 
Все выполняется, но у меня после того как первый readln выполняется (рисует окружность например) он просит опять ввести данные чтобы узнать количество букв. Как сделать так чтобы нарисовал окружность, линию или посчитал буквы программа останавливалась, а не продолжалась

Рустам Курбанов · Accepted Answer

Оператор множественного выбора case спасет вас.. . 
 
uses graphABC; 
var a,s:integer; b:string; 
begin 
 writeln('Что мне делать? '); 
 writeln('1. Нарисовать окружность'); 
 writeln('2. Нарисовать линию'); 
 writeln('3.Посчитать количество букв в слове'); 
 readln(a); 
 case a of 
 1 : circle(200,125,100); 
 2 : line(1,1,300,400); 
 3 : begin 
 writeln('Введите слово'); 
 readln(b); 
 s:=length(b); 
 writeln(s); 
 end; 
 else writeln ('Извините, но вы ввели некорректное число'); 
 end; 
end.