Имеется строка, содержащая буквы латинского алфавита и числа. Вывести на экран

uses crt;
var s:string;
nbsp;nbsp;nbsp;nbsp;i,l,max:integer;
nbsp;nbsp;nbsp;nbsp;M:set of char;
nbsp;nbsp;nbsp;nbsp;flag:boolean;
begin
nbsp;nbsp;clrscr;
nbsp;nbsp;writeln(Введите строчку ...);
nbsp;nbsp;readln(s);
nbsp;nbsp;M:=[0..9];
nbsp;nbsp;flag:=false;
nbsp;nbsp;i:=0;l:=0;max:=0;
nbsp;nbsp;repeat
nbsp;nbsp;nbsp;nbsp;inc(i);
nbsp;nbsp;nbsp;nbsp;if s[i] in M then
nbsp;nbsp;nbsp;nbsp;begin
nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;if flag=false then
nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;begin
nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;flag:=true;
nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;l:=1;
nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;end
nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;else inc(l);
nbsp;nbsp;nbsp;nbsp;end
nbsp;nbsp;nbsp;nbsp;else begin
nbsp;nbsp;nbsp;if flag then
nbsp;nbsp;nbsp;begin
nbsp;nbsp;nbsp;nbsp;nbsp;if maxlt;l then max:=l;
nbsp;nbsp;nbsp;nbsp;nbsp;flag:=false;
nbsp;nbsp;nbsp;end
nbsp;nbsp;nbsp;end;
nbsp;nbsp;until i=length(s);
nbsp;nbsp;if lgt;max then max:=l;
nbsp;nbsp;writeln(max);
nbsp;nbsp;readln;
end.