Ограничение на ввод

uses crt;
var c:char;
    i:byte;
    m:set of char;
begin
clrscr;
m:=[];
i:=1;
repeat
c:=readkey;
if ((i=1)and not(c in ['1'..'9']))
or((i in [2..4])and not(c in ['0'..'9']))or(c in m) then c:=#0
else
 begin
  write(c);
  m:=m+[c];
  inc(i);
 end;
if i=5 then writeln;
until i=5;
readkey
end.

uses crt;
var c:char;
    i,k,n:integer;
    m:set of char;
    s:string;
begin
clrscr;
m:=[];
i:=1;
s:='';
repeat
c:=readkey;
if ((i=1)and not(c in ['1'..'9']))
or((i in [2..4])and not(c in ['0'..'9']))or(c in m) then c:=#0
else
 begin
  write(c);
  s:=s+c;
  m:=m+[c];
  inc(i);
 end;
if i=5 then writeln;
until i=5;
val(s,n,k);
writeln('Введенное число=',n);
readkey
end.

uses crt;
  var
    a,b:integer;
    c:char;
    d:set of char;
  begin
    write('Enter N:');
    a:=0;
    b:=0;
    d:=[];
    repeat
      c:=ReadKey;
      if(c in['0'..'9'])and(b<4)and((a>0)or(c<>'0'))and(not(c in d))then
      begin
        d:=d+[c];
        inc(b);
        write(c);
        a:=a*10+ord(c)-ord('0');
      end
    until(c=#13);
    writeln;
    writeln('Result:=',a);
  end.

procedure vvod;
var
  num, i, io, b: integer;
  c:char;
  d:set of char;
  s: array[1..4] of integer;
begin
  writeln('Введите четырехзначное число');
    write('Enter N:');
    num:=0;
    b:=0;
    d:=[];
    repeat
      c:=ReadKey;
      if(c in['0'..'9'])and(b<4)and((num>0)or(c<>'0'))and(not(c in d))then
      begin
        d:=d+[c];
        inc(b);
        write(c);
        num:=num*10+ord(c)-ord('0');
      end
    until(c=#13);
    writeln;
  s[4] := num mod 10;
  io := num div 10;
  for i := 3 downto 1 do
  begin
    s[i] := io mod 10;
    io := io div 10;
  end;
  for i := 1 to 4 do
    a[i] := s[i];
end;

writeln('Ну введи, ты что?')