Помогите решить) Задачи по программированию в Паскале

Lr := 0; Vr := 20; Dr := 0; { red }
Ly := 0; Vy := 10; Dy := +1; { yellow }
Lg := 0; Vg := 30; Dg := -1; { green }
S := 500; T := 0;
repeat
Inc(T);
Inc(Lr, Vr); Inc(Vr, Dr);
Inc(Ly, Vy); Inc(Vy, Dy);
Inc(Lg, Vg); Inc(Vg, Dg);
until (Lr >= S) or (Ly >= S) or (Lg >= S);
if (Lr >= S) and (Ly >= S) and (Lg >= S) then M := 'Победила дружба! '
else if (Lr >= S) and (Ly >= S) then M := 'Победили красный и жёлтый. '
else if (Lr >= S) and (Lg >= S) then M := 'Победили красный и зелёный. '
else if (Ly >= S) and (Lg >= S) then M := 'Победили жёлтый и зелёный. '
else if Lr >= S then M := 'Победил красный. '
else if Ly >= S then M := 'Победил жёлтый. '
else M := 'Победил зелёный. ';
WriteLn(M);
WriteLn('Со временем (сек. ) ', T);

var n, k: integer;

procedure deliteli(var n, k: integer);
var i: integer;
begin
for i := 2 to (n div 2) do
if (n mod i = 0) then begin write(i:5); inc(k) end;
end;

begin
repeat readln(n) until n >= 0;
deliteli(n, k);
writeln;
if k > 0 then writeln('Количество делителей = ', k) else
writeln('Делителей, кроме ''1'' и самого числа, нет! ')
end.

К сожалению я не смогу вам помочь так как я эту тему ещё не проходил. если бы было с числом которые комп выдаёт то дал бы ответ