помогите написать программу на PascalABCNET

ВХОДНЫЕ ДАННЫЕ

Дана последовательность натуральных чисел, завершающаяся нулем. 

ВЫХОДНЫЕ ДАННЫЕ

Определите, какое наибольшее количество подряд идущих элементов этой последовательности равны друг другу.Числа, идущие после нуля, считывать не нужно.

var  n,npred,maxs,nseq:integer;begin  Writeln('Вводите натуральные числа, 0 - конец ввода');  maxs:=0; npred:=-32768; nseq:=1;  repeat    Read(n);    if n<>0 then begin      if n=npred then Inc(nseq)      else begin nseq:=1; npred:=n end;      if maxs<nseq then maxs:=nseq        end  until n=0;  Writeln('Наибольшая длина последовательности равна ',maxs)end.Тестовое решение:Вводите натуральные числа, 0 - конец ввода1550Наибольшая длина последовательности равна 2