Контроль ввода количества символов переменной

var
i:byte;
A[1..20]:array[1..50] of real;
Begin
For i:=1 to 50 do
writeln('vvedite A[',i,']>'); Readln(A[i]);

var
i:byte;
A[1..20]:array[1..50] of real;
c:real;
kol:integer;
Begin
For i:=1 to 50 do
repeat
  writeln('vvedite A[',i,']>'); Readln(A[i]);
  c:=a[i];
  kol:=0;
    repeat
       c:=c div 10;
       inc(kol);
   until c=0;
if kol>15 then writeln(' Введите заново, число слишком большое');
until kol<16;

var
i:byte;
A[1..20]:array[1..50] of real;
s:string;
Begin
For i:=1 to 50 do
repeat
writeln('vvedite A[',i,']>'); Readln(A[i]);
str(a[i],s);
if length(s)>15 then writeln('Это число большое, введите другое');
until lengths(s)<16;

const
  m=['0'..'9',',','-'];
var
  s:string;
  p:set of char;
  fl:boolean;
  i:integer;
begin
  {начало проверки}
  repeat
    readln(s);
    fl:=true;
    p:=[];
    if (pos('-',s)<>1) and (pos('-',s)<>0) then
    begin
      writeln('Знак минус стоит не на своем месте! Попробуйте еще раз.');
      fl:=false;
    end;
    if pos(',',s)=length(s) then
    begin
      writeln('Запятая стоит не на своем месте! Попробуйте еще раз.');
      fl:=false;
    end;
    if fl then
      for i:=1 to length(s) do
      begin
        if (s[i]=',') or (s[i]='-') then
          if not (s[i] in p) then
            p:=p+[s[i]]
          else
          begin
            writeln('Количество ',s[i],' не соответствует норме!');
            fl:=false;
            break
          end;
        if not (s[i] in m) then
        begin
          writeln('Число содержит недопустимые символы!');
          fl:=false;
          break
        end;
      end;
    if length(s)>15 then
      writeln('Попробуйте еще раз!')
  until
    (length(s)<=15) and fl;
  {только вот здесь заканчивается проверка}
  writeln('Введенное число: ',s)
end.

n:string[15];
t:real;
c:integer;
.....................
write('n=');
readln(n);
val(n,t,c);

n:string
................
repeat
write('Введите вещественное число не более 15 символов');
readln(n);
if length(n)>15 then writeln('Неверно, повторите ввод!');
until length(s)<=15;

var A[1..50]:array of longint;
i:byte
begin
For i:=1 to 50 do
writeln('А[',i,']='); Readln (A[i]);

var A[1..50]:array of longint;
i:byte
begin
For i:=1 to 50 do
repeat
writeln('А[',i,']='); Readln (A[i]); 
until a[i]<=maxlongint;