Обработка исключений из цикла

program Calculator_1;
uses Crt;
var a,b,c:integer;
begin
Writeln('Здравствуйте, Вас приветствует Calculator_1');
Writeln('');
Writeln('Сложение-1');
Writeln('Вычитание-2');
Writeln('Умножение-3');
Writeln('Деление-4');
Writeln('Возведение в кварат-5');
Writeln('Вычисление квадратного корня-6');
for c:=1 to 7 do begin Writeln('');
                       Writeln('Выберете дествие');
Read(c);
Begin
IF c=1 then
Begin
Writeln('Введите Первое слогаемое:');
read(a);
Writeln('Введите Второе слогаемое:');
read(b);
Writeln('Сумма этих чисел равна:',a+b)
end;
end;
Begin
IF c=2 then
Begin
Writeln('Введите Вычитаемое:');
read(a);
Writeln('Введите Вычитатель:');
read(b);
Writeln('Разность этих чисел равна:',a-b)
end;
end;
Begin
IF c=3 then
Begin
Writeln('Введите Первый множетель:');
read(a);
Writeln('Введите Второй множетель:');
read(b);
Writeln('Произвидение этих чисел равно:',a*b)
end;
end;
Begin
IF c=4 then
Begin
Writeln('Введите Делимое:');
read(a);
Writeln('Введите Делитель:');
read(b);
Writeln('Частное этих чисел равно:',a/b)
end;
end;
Begin
If c=6 then
begin
Writeln('Введите число, из которого хотите извлечь квадратный корень:');
Readln(a);
Writeln('Квадратный корень из числа ',a,' равен: ',Sqrt(a));
end;
end;
Begin
IF c=5 then
Begin
Writeln('Введите число, которое хотите возвести в квадрат:');
readln(a);
Writeln('Квадрат числа ',a,' равен: ',Sqr(a));
end;
end;
end;
End.