Найти сумму квадратов четных чисел - Pascal

Формулировка задачи:

Program qrt;
Uses crt;
Var
  n,i,k,s:integer;
Begin
  Writeln('Введите n');
  Readln(n);
  clrscr;
  s:=0;
  for i:=1 to n do
  Begin
    if i mod 2=0 then  {если чётное}
    Begin
      k:=i*i;
      s:=s+k;
    End;
  End;
  Writeln('сумма' ,s);
  Readln;
End.

Вот моя программа, она находит сумму четных чисел. Но моя задача состоит в том, что бы она при некорректном вводе данных (по моей задумке это все, кроме чисел от 0 до 100), выводило сообщение об ошибке, + к этому нужно, что бы после неправильного ввода, программа не завершала свою работу, а предлагала каждый раз ввести перменную заного, до тех пор, пока не уложится в интервал от 0 до 100. Не смог сделать сообщение об ошибке потому, что не додумался как вывести это сообщение, если ввели не число, а буквы (не удалось совместить real и integer).

Решение задачи: «Найти сумму квадратов четных чисел»

Листинг программы

Program qrt;
Uses crt;
Var
  n,i,k,s:integer;
Begin
repeat
  Writeln('Введите n');
  Readln(n);
  if (n>0) and (n<100) then writeln('Верно!') 
  else writeln('Ошибка! ');
  until n in [1..100];
  clrscr;
  s:=0;
  for i:=1 to n do
  Begin
    if i mod 2=0 then  {если чётное}
    Begin
      k:=i*i;
      s:=s+k;
    End;
  End;
  Writeln('сумма' ,s);
  Readln;
End.

Объяснение кода листинга программы

Программа начинается с объявления типа данных и переменных. В данном случае используется тип integer для всех переменных.
В блоке repeat-until запрашивается число n от пользователя. Если это число больше 0 и меньше 100, то выводится сообщение Верно!. Иначе выводится сообщение Ошибка!. Этот цикл продолжается до тех пор, пока n не будет введено число в диапазоне от 1 до 100.
После завершения цикла очищается экран с помощью функции clrscr.
Переменная s инициализируется значением 0.
В цикле for i от 1 до n выполняется блок кода.
В условии if проверяется, является ли число i четным. Если это так, то выполняется следующий блок кода.
Внутри блока if переменная k инициализируется как произведение числа i на само себя.
Переменная s увеличивается на значение k.
После выполнения блока if цикл for завершается.
Выводится сообщение сумма и значение переменной s.
Программа завершается, ожидая ввода пользователя.