Помогите разабраться с кодом паскль
Вот код программы, определяющей есть ли, в введенной строке повторяющиеся цифры или нет. Нужно описание действия каждой строки
var
s: string;
k,j,f: integer;
ch: char;
begin
read(S);
f:=0;
for k:=1 to length(s) do
for j:=1 to length(s) do
if ((s[k]=s[j]) and (k<>j)) then begin f:=1; ch:=s[k]; end;
if f=1 then Writeln('да - ',ch) else write('нет');
readln;
end.