Логически объяснить что делает каждая строка после begin

Const nmax=60;
Var A,B:array[1..nmax] of char;
    i,j,k,n:byte;
    f:boolean;
    mn:set of char;
Begin
    write('Введите n<=',nmax,': ');
    readln(n);
    For i:=1 to n do
    Begin
      write(i,' буква = ');
      readln(A[i]);
    End;
    writeln('Исходный массив');
    For i:=1 to n do
     write(A[i]:2);
    writeln;
    mn:=[];
    For i:=1 to n do
    Begin
      f:=false;
      if A[i] in mn then continue
      else
      For j:=i+1 to n do
       if A[i]=A[j] then f:=true;
      if f then 
      Begin
        inc(k);
        B[k]:=A[i];
        mn:=mn+[A[i]];
      End;
    End;
    writeln('Полученный массив');
    For i:=1 to k do
     write(B[i]:2);
   
End.

Const nmax=60;
Var A,B:array[1..nmax] of char;
    i,j,k,n:byte;
    f:boolean;
    mn:set of char;
Begin
    write('Введите n<=',nmax,': ');  //пердлагаем ввести размер массива
    readln(n); //вводим
    For i:=1 to n do //n букв
     Begin
      write(i,' буква = ');
      readln(A[i]);
     End;
    writeln('Исходный массив');  //выводим массив на экран
    For i:=1 to n do
     write(A[i]:2);
    writeln;
    mn:=[]; //множество пустое
    For i:=1 to n do //идем по массиву
     Begin
      f:=false;//считем что этой буквы больше нет
      if A[i] in mn then continue //если есть в множестве то продожаем программу ничего не делая
      else // иначе
      For j:=i+1 to n do //проверяем  буквы впереди текущей
      if A[i]=A[j] then f:=true;//если есть такая, меняем флаг
      if f then //если есть
       Begin
        inc(k);//увеличиваем счетчик
        B[k]:=A[i]; // заносим букву в новый массив
        mn:=mn+[A[i]]; //добавляем ее в множесто
       End;
     End;
    writeln('Полученный массив');//выводим новый массив
    For i:=1 to k do
     write(B[i]:2);
 
End.