Pascal ABC Дан текстовый файл t1. txt, содержащий целые числа, не превышающие 30000. Найти длину самой длинной цепочки одинаковых чисел, идущих подряд в файле t1. txt и записать эту цепочку в файл t2. txt

То есть вывести на экран длину самой длинной цепочки и записать в файл эту цепочку

Можно решить как через файлы, так и не через файлы

Если цепочки две, то выводится ближайшая. Пойдет?

//t1. txt должен быть в папке с программой

//Pascal

var

f: text;

numValue, Counts, n, c, t, i: integer;

begin

assign (f, 't1. txt');

reset (f);

Counts : = 0;

c : = 0;

while not eof (f) do

begin

readln (f, n);

if (c = 0) or (n = t) then

c : = c + 1

else

c : = 1;

t : = n;

if c > Counts then

begin

Counts : = c;

numValue : = n

end

end;

close (f);

assign (f, 't2. txt');

rewrite (f);

writeln ('Длина цепочки: ', Counts);

for i : = 1 to Counts do

writeln (f, numValue);

close (f)

end.