сдача через 30 мин (╥﹏╥)там где в круглешочки взяла только эти нужны

Program p1;
uses crt;
var a,ed,des,sot,tis,s,p,max:longint;
begin
clrscr;
writeln('введите четырех значное число');
readln(a);
ed:=a mod 10;
des:=a div 10 mod 10;
sot:=a div 100 mod 10;
tis:=a div 1000;
s:=0; p:=1;
p:=ed*des*sot*tis;
s:=ed+des+sot+tis;
writeln('Произведение чисел = ',p);
writeln('Сумма чисел = ',s);
if (ed>des) and (ed>sot) and (ed>tis) then max:=ed;
if (des>ed) and (des>sot) and (des>tis) then max:=des;
if (sot>ed) and (sot>des) and (sot>tis) then max:=sot;
if (tis>ed) and (tis>des) and (tis>sot) then max:=tis;
writeln('Максимальное число = ',max);
readln;
end.

Для чего используются команды цикла?
Чтобы не записывать одну операцию несколько раз.
Как записывается команда цикла FOR?
for x:={число} to {число} do
Как в цикле записать команду присваивания, чтобы она вычисляла сумму чисел? 
s:=s+x;
либо
inc(s,x);
Причем до цикла присвоить s=0
Количество? 
k:=k+1;
либо
inc(k);
Какое начальное значение должно быть у переменной, в которой накапливаем произведение чисел?
1
Как записывается команда цикла, в которой счетчик цикла уменьшается? 
for x:={число} downto {число}
либо
while k>0 do
k:=k-1;
Можно ли изменять значение верхней границы цикла в теле цикла? 
Можно, например:
for x:=1 to N do
n:=n+1;
Можно ли в теле цикла использовать команду сравнения?
Конечно, например:
for x:=1 to N do
if a[x]>a[x+1] then ...