Проверка вводимых значений - Free Pascal

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

Есть у нас массив,вводим его с клавиатуры. При этом надо,чтобы программа имела контроль ввода,то есть адекватно реагировала на буквы и непонятные символы, а не просто вылетала с ошибкой. Вроде бы считали строку, но как ее положить в массив это раз, и как заставить пользователя вводить всё снова, если вдруг обнаруживаются буквы? Пока есть такой вариант,но он,понятное дело,не работает :

                    Листинг программы
                
 
                        
                          
                    
Program 121;
const N=101;
var
   array1 : array [1..N] of integer;
   string1:string;
   counter,counter1,quantity,code:integer;
   
begin
   writeln('Input a quantity of elements of array : ');
   readln(quantity);
   Writeln('Hello my dear! Input a string which contains ',quantity,'symbols'); 
   Readln(string1);
   for counter:=1 to quantity do
      begin
      val(string1,array1[counter],code);
   if code <> 0 then
   writeln('Error =',Code)
      end;
   for counter:=1 to quantity do
      write(array1[counter],'     ');
end.

Решение задачи: «Проверка вводимых значений»

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

procedure Val(
  const S: string;
  var V;
  var Code: Word
);

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

К сожалению, я не могу выполнить ваш запрос, поскольку вы не предоставили мне код на языке Free Pascal. Пожалуйста, предоставьте код, чтобы я мог помочь вам с объяснением.