Есть ли в числе одинаковые цифры - Free Pascal

uses crt;
var 
  c:char; st:string[64]; k,s,i:longint;
  q:set of char;
begin 
  clrscr;
  k:=0;
  q:=[];
  writeln('vvedite chislo');
  while c<>#13 do 
    begin
      read(c); st:=st+c; 
    end;
    s:=length(st);
    for i:=1 to s do
      if st[i] in q then 
        k:=k+1
      else
        q:=q+[st[i]];
        if k>0 then 
          writeln('est') 
        else
          writeln('net');
  readkey 
end.