Программа определяет у кого максимальное количество голосов
с начало в каждую из 10 ячеек массива заносится число
массив это список переменных например список учащихся в классе
klass[1]= Иванов
klass[2]=петров
и т.д.
дальше идет цикл for , он выполнится 10 раз так как
k поочередно принимает значения от 1 до 10
после 10 стоит слово do это значит ,что выполнится только следующий за do оператор
за do следует оператор if dat[k]>m then begin m:=dat[k] end;
он означает что только если dat[k]>m тогда выполняются операторы после then (m:=dat[k];)
writeln выводит на экран число.