Дана последовательность натуральных чисел, завершающаяся числом 0. Определите, какое наибольшее число подряд идущих элементов этой последовательности равны друг другу. (pascal)
P.S Надо использовать цикл while, но я не могу понять каким образом.

А в Pascale, ибо питон мне не знаком

pythonimport sysimport mathimport randoma = input("Введите целые числа через пробел: ").split(" ") #schitalia = [int(x) for x in a][:-1] # pereveli k tselomy tipucount = 1now = 1for i in range(1, len(a)):    if a[i] == a[i-1]: now += 1    else:        count = max(count, now)        now = 1print('Максимум подряд идут {0} одинаковых чисел.'.format(count))

var a, p, c, max: integer;begin  a := -1;  p := 0;  c := 0;  max := 1;  while a <> 0 do  begin    read(a);    if a <> p then    begin      if c > max then max := c;      c := 0;    end;    p := a;    c := c + 1;      end;  write(max);end.