[NumLock]

Ирина Владимировна, у Вас цикл крутит:

Код:

  For i := 1 To n Do
     begin      
        repeat c:=random(11)-5 until (c<>0);
        repeat d:=random(11)-5 until (d<>0);
     end;

Вам нужно перенести красный end на строчку после writeln(f,'</p>');