Составить программу решения задачи: Определить, есть ли среди цифр заданного числа одинаковые — Pascal(Паскаль)

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.