Шифр Цезаря (нужна блок-схема)

[_PoLL_]

Программа шифрует вводимую строку "Шифром Цезаря",как построить ее блок-схему?


program anslovo22;
var alf,anslovo,slovo:string;
i,n,k,p:integer;
BEGIN
writeln('введите количество сдвигов');
readln(n);
writeln('введите текст');
readln(slovo);
alf:='абвгдеёжзийклмнопрстуфхцчшщъы ьэюя';
for i:=1 to length(slovo) do
begin
for k:=1 to length(alf) do
if slovo[i]=alf[k] then p:=k+n;
if p>length(alf) then p:=p-length(alf);
anslovo:=anslovo+alf[p];
end;
writeln('зашифрованный текст= ',anslovo);
readln;
END.