С клавиатуры вводится 4-значное число. Если 1-ая и заключительная числа равны

var
   a, b, s, s1, i: integer; // объявляем переменные целочисленного типа.
begin
   write (Введите число:);     // вывод строчки на экран.
   read(a);                             // считываем число, введенное с клавиатуры.
     while a gt; 0 do                  // начало цикла.
       begin
          b := a mod 10;          // определяем последнюю цифру числа.
          if i = 0 then s := b;   // запоминаем последнюю цифру.
          if i = 3 then s1 := b; // запоминаем первую цифру.
          a := a div 10;          // удаляем заключительную цифру из числа.

          i := i + 1;               // счетчик цифр.
      end;
    if (s = s1) then writeln (Сумма чисел одинакова: , s + s1)    // вывод суммы чисел на экран.
    else writeln(Нет.);
end.