Помогите пожалуйста. программка Паскаль дано трехзначное число. Напишите программку, которая

var
  c, f, First, count:integer;
begin
  write('c = ');
  readln(c);
  f := c;
  while (f div 10 gt; 0) do
  begin
    First := f div 10;
    count := 1;
    while (First div 10 gt; 0) do
    begin
      First := First div 10;
      Inc(count);
    end;
    if First lt;gt; f mod 10 then
    begin
      writeln('No');
      readln;
      Exit;
    end;
    
    while count gt; 0 do
    begin
      First := First * 10;
      dec(count);
    end;
    f := f - First;
    f := f div 10;
  end;
  writeln('Changeling');
  readln;
end.