Pascal:Вывести все четные цифры, содержащиеся в слове наибольшей длины, и вывести число повторений каждой этой цифры

[Alina266]

Дан массив из n слов произвольной длины (длина слова не превышает 80 символов). Элементами слов могут быть любые графические символы. Вывести все четные цифры, содержащиеся в слове наибольшей длины, и вывести число повторений каждой этой цифры в этом слове.
Если можно, с объяснениями, так как я мало чего знаю в Паскале.

[newerow1989]

const n=15;//кол-во слов
var ss:array[1..n] of string;//массив слов
    d:array[0..9] of integer;//количество цифр в лове наибольшей длины
    i,j,k,l:integer;
    s:string;
begin
   Randomize;
   For i:=1 to n do
   begin
      l:=1+Random(80);//произвольная длина (от 1 до 80 символов)
      ss[i]:='';//"обнуляем" текущее слово
      For j:=1 to l do
      begin
         k:=48+Random(36);//36 - кол-во символов (10 цифр и 26 букв латинского алфавита)
         //48 - с этой позиции начинаются цифры (по таблице ASCII)
         If k>57 then//если цифра вне предела (57 - это цифра "9"), то...
            k:=k+7;//... увеличиваем переменную на 7 (65 - это буква "A")
         ss[i]:=ss[i]+Char(k);//добавляем символ
      end;
      Writeln(ss[i]);//печать на экран
   end;
   //ищем слово наибольшей длины
   l:=Length(ss[1]);//длина слова наибольшей длины (условно)
   s:=ss[1];//слово наибольшей длины (условно)
   For i:=2 to n do
      If l<Length(ss[i]) then//если нашли слово наибольшей длины больше предыдущей, то...
      begin
         l:=Length(ss[i]);//... записываем наибольшую длину и само слово
         s:=ss[i];
      end;
   Writeln;
   For i:=0 to 9 do
      d[i]:=0;//кол-во цифр обнуляем перед выполнением очередной задачи
   For i:=1 to l do
   begin
      k:=Ord(s[i]);//код символа
      If k<=57 then//если цифра, то...
      begin
         k:=k-48;//...определяем ее порядковый номер (или какая это цифра)
         If k mod 2=0 then//четность
            Write(s[i]);//печать на экран
         Inc(d[k]);//увеличиваем число повторений цифры на 1
      end;
   end;
   Writeln;
   //вывод на экран число повторений каждой цифры
   For i:=0 to 9 do
      If i mod 2=0 then
         If d[i]>0 then
            Writeln(i,' - ',d[i]);
   Readln;
end.

[Alina266]

Огромное спасибо. Отдельное спасибо за объяснения.
Что бы преподавателю что то понравилось, нужно очень постараться.

[newerow1989]