Определить, есть ли среди цифр заданного числа одинаковые

uses crt;
const n=5;
var a:array[1..n]of integer;
i,j,k:integer;
begin
clrscr;
writeln('Vvedite ',n,' chisel:');
for i:=1 to n do
read(a[i]);//вводим числа через пробел
readln;  //жмем Enter
k:=0;
for i:=1 to n do
for j:=i to n do
if (a[i]=a[j])and(i<>j)then//если совпадабт, а номера разные
     begin
        k:=k+1;//считаем
     end;
if k>0 then writeln('Odinakovye chisla est!')
else if k=0 then writeln('Odinakovyh chisel net!');
readln
end.

program one;
                    uses crt;
                    var c:char; st:string; k,s,i:byte;
                    begin clrscr;
                    k:=0;
                    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]=st[i+1] then k:=k+1;
                    if k>0 then writeln('est') else writeln('net');
                          readkey end.

program one; //это так понял название программы "one"?
uses crt; //подгрузка в оперативку модуля crt? 
var c:char; st:string; k,s,i:byte; //обявление переменных "с" с типом (не знаю), st с типом "строка" и k,s,i с каким типом тоже не знаю 
begin clrscr; //инициирующая часть (начало) с командой очистки экрана?
k:=0; //присвоение переменной k ноль
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]=st[i+1] then k:=k+1;
if k>0 then writeln('est') else writeln('net');
readkey end.

program laborat6;
 
uses crt;
 
var y:string;
    x,i,n,k:word;
    c,cd:char;
    chislo:array [1..100] of char;
 
 
function obr(i,x,n:word;y:string):word;
 var chislo:array[1..100] of char;
 begin
    for i:=1 to n do begin
      if (chislo[i])=y then x:=x+1;
     end;
 
procedure vvod(var y:string; var i,n,k:word; var c,cd:char; var chislo:array of char);
 begin
     clrscr;
    writeln('Добро пожаловать в программу, которая сможет определить,');
    writeln('есть ли среди первых N цифр заданного целого числа цифра К.');
      i:=1;
    write('Введите любое число: ');
      repeat
    read(cd);
    chislo[i]:=cd;
      i:=i+1;
       until  cd=#13;
    write('Введите цифру которую вы хотите проверить: ');
      read(k);
      str(k,y);
      write('Количство проверяемых первых цифр в заданном вами числе: ');
      readln(n);
 end;
 
 procedure vyvod(x,k,i,obr:word);
 begin
    obr:=k;
     writeln('Число ',k,' встречается ',x,' раз(а).');
    readln;
 end;
 
 
begin
vvod(y,i,n,k,c,cd,chislo);
vyvod(x,k,i,obr);
end.