Пожалуйста помогите, а то я вообщем не разумею как решать.

Я так разумею, циклом перебираются все элементы таблицы и при нахождении числа большего m, само m изменяется на это число. то есть тут тупо поиск большего числа , а он здесь равен 70

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