Шифровка. String. Pascal.

[ArsGo]

Кто может, пожалуйста, исправьте ошибки в программе.

Задача:
Текст зашифрован так: определяется длина самого длинного слова (N), и каждая английская буква заменяется на букву, стоящую на N позиций ранее, строчные остаются строчными, заглавные заглавными.

uses
  SysUtils;
Var
C: String;
i:integer;
max,b,k:integer;

Begin
read(C);
max:=0;
k:=0;
for i:=1 to length (C) do
begin
if ((c[i] <> chr(32)) and (c[i]<>chr(46))) then
 begin
 inc(k);
 if k>max then max:=k;
 end;
end;

    for i:= 1 to length(C) do
     begin
     if ((ord(C[i])<>32) and (ord(C[i])<>46)) then
     begin
      b:=ord(C[i])+max;
      if  ((90<b) and (b<94)) or ((b>122) and (b<126)) then
      b:=b-26;
      C[i]:=chr(b);
      end;
     end;
 writeln(C);
 readln;
 readln;
End.

________
1) Код нужно оформлять по правилам:
тегом [CODE]..[/СODE] (это кнопочка с решёточкой #)

2) Кросспостинг запрещён правилами форума.

3) (предваряя следующее нарушение, в качестве профилактики): одна тема - один вопрос.
для другого вопроса, другой задачи - создавайте новую тему (не забыв дать адекватное название, разумеется!)

Не забывайте об этом!

Модератор.

[Step_UA]

Неправильно находится длина самого длинного слова, т.к. при встрече пробела переменная k не сбрасывается в ноль, то max=длине строки минус пробелы и точки

заменяется на букву, стоящую на N позиций ранее

скорее всего имеется ввиду что при рассмотрении к примеру буквы на 5 позиции и N=3, подставляется буква стоящая на 2 позиции

[TinMan]

Сообщение от ArsGo

Кто может, пожалуйста, исправьте ошибки в программе.

Держи

const
  UpCase= ['A'..'Z'];
  LoCase= ['a'..'z'];
  Alphabet= UpCase+LoCase;
  AlphLength= 26;

Var
  C: String;
  i:integer;
  max,b,k:integer;

Begin
  readln(C);
  max:=0;
  k:=0;
  for i:=1 to length (C) do
    if c[i] in Alphabet then begin
      inc(k);
      if k>max then max:=k;
    end
    else k:=0;

  for i:= 1 to length(C) do
    if c[i] in UpCase then
      c[i]:= Chr((Ord(c[i])-Ord('A')+AlphLength-max) mod AlphLength + Ord('A'))
    else if c[i] in LoCase then
      c[i]:= Chr((Ord(c[i])-Ord('a')+AlphLength-max) mod AlphLength + Ord('a'));
  writeln(C);
  readln;
End.

[ArsGo]

Ого, спасибо Вам большое, очень рад, что есть еще отзывчивые и умные люди =)
Если не трудно, могли бы Вы помочь в упрощении 1-го кода, проверяющего число на возможность разложения на сумму 2-х квадратов.
var a,b,n:longint;
begin
//reset(input,'squares.in');
//rewrite(output,'squares.out');
readln(n);
for a:=1 to round(sqrt(n))+1 do
begin
b:=round(sqrt(n-a*a));
if a*a+b*b=n then begin
writeln('YES');
if a>b then writeln(b,' ',a)
else writeln(a,' ',b);
readln;halt;
end;end;
write('NO');
readln;readln;
end.