Pascal/Turbo Pascal - POR FA AYUDA sobre un programa en pascal

{Mira a ver si esto hayuda}

program encuesta;

  uses

     crt;

   const

       lacteos : array[1..4] of string[16] = (

       'Leche_Descremada','Leche_Entera','Yogures','Helados');

   type

      productos = record

         nom : string[40];

         prod : integer;

      end;

   var

     encu : array[1..4] of productos;

     cont, i, k : integer;

   function estrella : string;

   var

     n, c : integer;

     temp : array[1..4] of productos;

     pp : productos;

    begin

       for i := 1 to 4 do

       temp[i] := encu[i];

      for n := 1 to 4 do

        for c := 4 downto n + 1 do

        if temp[n].prod > temp[c].prod then

        begin

           pp := temp[n];

           temp[n] := temp[c];

           temp[c] := pp;

        end;

        estrella := temp[4].nom;

    end;

   procedure respuestas; {Esto seria la entrada de preguntas}

   begin

      fillchar(encu,sizeof(encu),0);

      i := 1;

    repeat

        k := random(40) + 1;

       if k in[1,2,3,4] then

       begin

          encu[k].prod := encu[k].prod + 1;

          case k of

       1 : encu[k].nom := lacteos[k];

       2 : encu[k].nom := lacteos[k];

       3 : encu[k].nom := lacteos[k];

       4 : encu[k].nom := lacteos[k];

         end;

          i := i + 1;

       end;

    until i > 200;

   end;

  begin

      clrscr;

      randomize;

      respuestas;

      gotoxy(10,1);write('****** Los Resultados De La Encuesta Son ******');

      gotoxy(2,3);writeln(encu[1].nom,' : ',encu[1].prod);

      gotoxy(2,4);writeln(encu[2].nom,'     : ',encu[2].prod);

      gotoxy(2,5);writeln(encu[3].nom,'          : ',encu[3].prod );

      gotoxy(2,6);writeln(encu[4].nom,'          : ',encu[4].prod);

      gotoxy(2,9);write('**** El Producto Estrella Fue = ',estrella);

      gotoxy(10,12);write('Pulse Una Tecla');

      readkey;

  end.