Функции и обработка исключительных ситуаций(Pascal,ABC.Net)

[Alex50128]

Здравствуйте.Мне задали написать программу с использованием функции на языке Pascal.

Мне задано вычислить функцию,которую вы видите на картинке ниже.Но,главное то что нужно предвидеть возможные ошибки.Например если в знаменателе будет 0(ноль),то понятно что на него нельзя делить и нужно вывести сообщение типа "Ошибка!Введите другие данные".

При написании программы,возникла проблема в том что нужно выводить ошибку и просить ввести еще раз данные,а моя программа выводит ошибку и дальше вычисляет функцию.

Исправьте программу пожалуйста,при возможности указать какие ошибки еще можно обработать.Код ниже:

Uses CRT;
Var x,a,y: real;
    
                 function obrabotka_errors(x,a:real):real;
                 var k,q,r:real;
                 begin
                 q:=a+x;
                 r:=a*x;
                 k := a - exp((-1)*((к)/(sin(q))));
                 if (q=pi) or (q=0) 
                 then
                 writeln('Ошибка!Пожалуйста введите другие данные')
                 else
                      if (r=0) 
                      then
                      writeln('Ошибка!Bведите другие данные')
                      else
                      obrabotka_errors:= k;
                 end;
Begin
Clrscr;
          write('Введите число x-> ');
          readln(x);
          write('Введите число a-> ');
          readln(a);
          y:=obrabotka_errors(x,a);
          writeln('Y= ',y);
End.