дано трёхзначное число, если оно состоит из одинаковых цифр — вывести «да», в обратном случае — «нет»в цикле for, while и repeat — Pascal(Паскаль)

program case_lab;                            
uses crt;
var  x:word;
     a,b,c,i:byte;
     k:char;
begin
      clrscr;
      writeln('F,f:for  W,w:while  R,r:repeat');
      readln(k);
 
 case k of
 'F','f':
  for i:=1 to 3 do
    begin
    writeln('Vv chislo x');
    readln(x);
    a:= x div 100;
    b:= x div 10 mod 10;
    c:= x mod 100 mod 10;
    if (a=b) and (b=c) then
                                   writeln('yes')
                                else 
                                   writeln('no')
 end;
 'W','w':
 begin
  writeln('Vv chislo x');
  readln(x);
  while ((x>99) and (x<1000))   do
   begin
      a:= x div 100;
      b:= x div 10 mod 10;
      c:= x mod 100 mod 10;
      if (a=b) and (b=c) then
                                     writeln('yes')
                                   else
                                     writeln('no');
    writeln('Vv chislo x');
    readln(x);
    a:= x div 100;
    b:= x div 10 mog 10;
    c:= x mod 100 mod 10;                                                     
   end;                                                                       
 end;                                                                         
                                                                              
 'R','r':                                                                     
  repeat                                                                      
  writeln('Vv chislo x');                                                     
  readln(x);                                                                  
    a:= x div 100;                                                            
    b:= x div 10 mod 10;                                                      
    c:= x mod 100 mod 10;                                                     
    if (a=b) and (b=c) then                                                   
                               writeln('yes')                                 
                           else                                               
                               writeln('no')                                  
                                                                              
 until  (x<=99) or (x>=1000)                                                  
 else writeln ('Ne tot simvol');                                              
 end;                                                                         
 readkey;                                                                     
end.