Необходимо выполнить на языке паскаль. в файле находится цепочка из символов, в которую могут входить заглавные буквы латинского алфавита a…z и десятичные цифры. найдите длину самой длинной подцепочки, состоящей из ‘12as’. выведите сначала символ, из которого строится эта подцепочка, а затем через пробел – длину этой подцепочки.

#include < stdio.h> char *dayofweek(int n, char a[7][13]) {       return & a[n-1][0]; }; int main() {       char cday[7][13]={"понедельник","вторник","среда","четверг","пятница",             "суббота","воскресенье"};       int n;       printf("введите номер дня недели (1-7): ");       scanf("%d",& n);       printf("это %s",dayofweek(n,cday)); }

Var   i, err, buf2: integer;   buf: string;   max: array [0..1] of integer; begin   writeln('конец последовательности - пустая строка');   repeat     inc(i);     readln(buf);     val(buf, buf2, err);     if (err > 0) then break;     if ((buf2 > max[1]) and (buf2 mod 2 = 0)) then     begin       max[1] : = buf2;       max[0] : = i;     end;   until false;   writeln('[', max[0], '] => ', max[1]); end.