const
str= 'ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvw xyz';
alpha='YXWVUTSRQPONMLKJIHGFEDCBAzyxwvutsrqponmlkji hgfedcba';
var
S: String;
Ch : Char;
i, j, Len : Integer;
Procedure shifrovka(var s:string);
begin
for i := 1 to Length(S) do
begin
Len := Length(str);
for j := 1 to Len do
if str[j] = S[i] then Break;
if j <= Len then S[i] := alpha[j]
end;
Writeln(S);
end;
Procedure rasshifrovka(var s:string);
begin
for i := 1 to Length(S) do
begin
Len := Length(alpha);
for j := 1 to Len do
if alpha[j] = S[i] then Break;
if j <= Len then S[i] := str[j]
end ;
Writeln(S);
end;
помогите,пожалуйста,переделать программу без break