Tugas Perbaikan Ulangan Harian ke Dua

Bagi yang nilai ulangan harian ke duanya belum tuntas, diharapkan mengerjakan tugas, untuk menganalisa source code di bawah ini:
program isengk;
uses crt;
var
kal:string;
huruf:char;
i,jml,pj:byte;
begin
clrscr;
write('Kalimat: ');
readln(kal);
write('Huruf yang disembunyikan: ');
readln(huruf);
pj:=length(kal);
for i:= 1 to pj do
begin
if copy(kal,i,1)=huruf then
begin
insert('*',kal,i);
delete(kal,i+1,1);
jml:=jml+1;
end;

end;
writeln('Jumlah huruf ',huruf,' yang disembunyikan adalah ',jml);
writeln('Hasilnya adalah ',kal);
readln;
end.

Jelaskan beberapa poin berikut ini :
1. Fungsi dari program.
2. Cara kerja program, meliputi cara penggunaan fungsi2 yang disebutkan, dan jalannya program.

Tugas dikumpulkan dalam bentuk dokumen word (.doc) ke email youngky_h@yahoo.co.id paling lambat tanggal 26 Mei 2009 pk 18:00 . Pada subjek harus dituliskan : her uh2 . Contoh: her uh2 x-m 07 tuti