необходима блок-схема, кто-нибудь!!

[Gerberka]

program domrab;
Var s:string;
c,cnew:char;
f: boolean;
i,k,max:integer;
begin
s:=''; max:=0;k:=0; f:=false;
repeat
read(c); s:=s+c;
if f then
if c in ['a'..'z','A'..'Z'] then k:=k+1
else begin if k>max then max:=k; f:=false end
else
if c in ['a'..'z','A'..'Z'] then begin f:=true; k:=1 end
until c='.';
writeln(s,max);
for i:=1 to length(s) do
begin
cnew:=chr(ord(s[i])+max);
case s[i] of
'a'..'z':if cnew>'z' then write(chr(ord(cnew)-26))
else write(cnew);
'A'..'Z':if cnew>'Z' then write(chr(ord(cnew)-26))
else write(cnew);
else write(s[i])
end; end; readln; readln;
end.

[p51x]

Ищите по форуму. Уже выкладывали проги для лентяев.