Проверка вводимых значений - 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.

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

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

12   голосов, оценка 4.167 из 5


СОХРАНИТЬ ССЫЛКУ