Crypt

program ex;
uses wincrt;

Var
ph:string;

function verif(ch:string):boolean;
var
i:integer;
Begin
i := 1;
while (upcase(ch[i]) in ['A'..'Z']) or (ch[i] = ' ') Do
Begin
i:=i+1;
end;
verif:=(i>=length(ch));
end;

procedure saisie(var ph:string);
Begin
repeat
writeln('saisir une phrase  à crypter : ');
readln(ph);
until verif(ph);
end;


procedure crypt(ch:string);
Var
chC:string;
r,i:integer;
Begin
chC:='';
r:=1;
for i := 1 to length(ch) Do
Begin
if ch[i] = ' ' Then
Begin
r:=r+1;
chC:=chC+' ';
end
Else if upcase(ch[i]) = 'Z' Then
Begin
chC := chC + chr(ord(ch[i])-25);
end
else
Begin
chC := chC + chr(ord(ch[i])+r);
end;
end;
writeln(chC);
end;

Begin
saisie(ph);
crypt(ph);
end.