Проверка ввода

[Panda]

Почему то проверка ввода не работает, не могу понять в чём причина?

uses crt;
const n=6;
var a:array[1..n] of integer;
    i,min,mn,j,k:integer;
     procedure vvod(var t:integer;a,b:word);
var
x,y,code:integer;
l:string;
flag:boolean;
begin
x:=wherex;
y:=wherey;
repeat
flag:=true;
readln(l);
val(l,t,code);
if (code<>0) or (not(t>a)) or (not(t<b)) then
begin
gotoxy(x,y);
clreol;
write('error');
delay(1000);
gotoxy(x,y);
clreol;
flag:=false;
end;
until flag=true;
end;
begin

clrscr;
writeln('Ishodnyj massiv:');
writeln('Vvedite v stroku s probelom ',n,' chisel:');
           vvod(i,10,1000);
for i:=1 to n do
read(a[i]); //ââîäèì äàííûå
readln;
clrscr;
writeln('Ishodnyj massiv:');
for i:=1 to n do
write(a[i],' ');  //âûâîäèì ìàññèâ
writeln;
min:=a[1];  //íàõîäèì ìèíèìàëüíîå ÷èñëî â ìàññèâå
for i:=1 to n do
if a[i]<min then min:=a[i];
for j:=min downto 2 do //äåëèì âñå ÷èñëà ìàññèâà ñíà÷àëà íà ìèíèìàëüíîå
   begin                      //ïîòîì óìåíüøàåì íà 1
    k:=0;
    for i:=1 to n do
    if a[i] mod j=0 then
       begin
         k:=k+1;
       end;
    if k=n then //êàê òîëüêî íàõîäèì ÷èñëî íà êîòîðîå äåëÿòñÿ âñå ÷èñëà
       begin
        mn:=j; //ýòî ìàêñèìàëüíûé ìíîæèòåëü
        break; //âûõîäèì èç öèêëà
       end;
   end;
if mn=1 then
   begin
      writeln('Obshego mnozitelja net!');
      readln;
      exit;
  end;
writeln;
writeln('Sokrashennyj massiv:');
for i:=1 to n do
write(a[i] div mn,' ');//âûâîäèì ìàññèâ, äåëåííûé íà ìíîæèòåëü
write('|',mn);//âûâîäèì ïàëêó è ìíîæèòåëü
readln
end.

[puporev]

Вот исправил ошибки с твоей проверкой, не понимаешь, не списывай откуда попало, а если списал правильно пользуйся.

uses crt;
const n=6;
var a:array[1..n] of integer;
    i,min,mn,j,k:integer;
procedure vvod(var t:integer;a,b:word);
var
x,y,code:integer;
flag:boolean;
begin
x:=wherex;
y:=wherey;
repeat
flag:=true;
readln(t);
if(t<=a) or (t>=b) then
begin
gotoxy(x,y);
clreol;
write('error');
delay(1000);
gotoxy(x,y);
clreol;
flag:=false;
end;
until flag=true;
end;
begin
clrscr;
writeln('Vvedite ',n,' chisel:');
for i:=1 to n do
vvod(a[i],10,1000);
clrscr;
writeln('Ishodnyj massiv:');
for i:=1 to n do
write(a[i],' ');  
writeln;
min:=a[1];  
for i:=1 to n do
if a[i]<min then min:=a[i];
for j:=min downto 2 do
   begin                     
    k:=0;
    for i:=1 to n do
    if a[i] mod j=0 then
       begin
         k:=k+1;
       end;
    if k=n then 
       begin
        mn:=j; 
        break; 
       end;
   end;
if mn=1 then
   begin
      writeln('Obshego mnozitelja net!');
      readln;
      exit;
  end;
writeln;
writeln('Sokrashennyj massiv:');
for i:=1 to n do
write(a[i] div mn,' ');
write('|',mn);
readln
end.

[Panda]

Сообщение от puporev

Вот исправил ошибки с твоей проверкой, не понимаешь, не списывай откуда попало, а если списал правильно пользуйся.

uses crt;
const n=6;
var a:array[1..n] of integer;
    i,min,mn,j,k:integer;
procedure vvod(var t:integer;a,b:word);
var
x,y,code:integer;
flag:boolean;
begin
x:=wherex;
y:=wherey;
repeat
flag:=true;
readln(t);
if(t<=a) or (t>=b) then
begin
gotoxy(x,y);
clreol;
write('error');
delay(1000);
gotoxy(x,y);
clreol;
flag:=false;
end;
until flag=true;
end;
begin
clrscr;
writeln('Vvedite ',n,' chisel:');
for i:=1 to n do
vvod(a[i],10,1000);
clrscr;
writeln('Ishodnyj massiv:');
for i:=1 to n do
write(a[i],' ');  
writeln;
min:=a[1];  
for i:=1 to n do
if a[i]<min then min:=a[i];
for j:=min downto 2 do
   begin                     
    k:=0;
    for i:=1 to n do
    if a[i] mod j=0 then
       begin
         k:=k+1;
       end;
    if k=n then 
       begin
        mn:=j; 
        break; 
       end;
   end;
if mn=1 then
   begin
      writeln('Obshego mnozitelja net!');
      readln;
      exit;
  end;
writeln;
writeln('Sokrashennyj massiv:');
for i:=1 to n do
write(a[i] div mn,' ');
write('|',mn);
readln
end.

Спасибо!
Что сделаешь если препод такую проверку дал!