Разобрать код построчно

[WebNightmare]

program Kriptograf;   	
function Shifr ( Kod, K : string ): string;
var i,t,d : integer; 
begin for i:=1 to length (Kod) do begin 
d:=ord (Kod[i]); 
t:= (ord(Kod[i]) + (ord (K [(pred(i) mod length(K)) + 1]) - ord('0'))); 
if t>=256 then dec (T,256); 
Kod[i]:=Chr(t); 
end; 
Shifr := Kod; 
end;
var 
a,k,s:string; 
Begin 
writeln('vvedite slovo'); 
readln(a); 
writeln('vvedite kluch'); 
readln(k); 
s:= Shifr(a,k); 
writeln('s= ', Shifr (a, k)); 
readln;  
End.

Пожалуйста, оформляйте Ваш код согласно правилам.