Даны четырехзначные целые числа. Найти все числа, где все четыре цифры, составляющие число, одинаковы

uses crt;
var a:array [1000..9999] of integer;
    i:integer;
    s:string;
begin
for i:=1000 to 9999 do
a[i]:=i;
for i:=1000 to 9999 do
if (inttostr(a[i])[1]=inttostr(a[i])[2]) and (inttostr(a[i])[2]=inttostr(a[i])[3]) and (inttostr(a[i])[3]=inttostr(a[i])[4]) and ((a[i] mod 2)<>0)
then writeln(a[i])ж
for i:=1000 to 9999 do
if (inttostr(a[i])[1]=inttostr(a[i])[2]) and (inttostr(a[i])[2]=inttostr(a[i])[3]) and (inttostr(a[i])[3]=inttostr(a[i])[4]) and ((a[i] mod 2)=0)
then writeln(a[i]);
end.

uses crt;
var a,b,c,d,i,j,n: integer;
    ar: array [1..100] of integer;
begin
clrscr;
      for i:=1000 to 9999 do begin
          a:=i div 1000;
          b:=i div 100 mod 10;
          c:=i div 10 mod 10;
          d:=i mod 10;
          if (a=b) and (a=c) and (a=d) then begin
             j:=j+1;
             ar[j]:=i;end; end;
      for i:=1 to j do
          if ar[i] mod 2<>0 then writeln (ar[i]);
      for i:=1 to j do
          if ar[i] mod 2=0 then writeln (ar[i]);
readkey;
end.

uses crt;
var i: integer;
    ar: array [1..100] of integer;
begin
clrscr;
      for i:=1 to 9 do
          ar[i]:=i*1000+i*100+i*10+i;
      for i:=1 to 9 do
          if ar[i] mod 2<>0 then writeln (ar[i]);
      for i:=1 to 9 do
          if ar[i] mod 2=0 then writeln (ar[i]);
readkey;
end.