read(f1,r);
while r in ['a'..'z','A'..'Z','0'..'9'] do begin
inc(i);
m[i]:=r;
read(f1,r);
end;