Pascal/Turbo Pascal - Problemas con un programa

{A ver si esto ayuda }

program compra;

 uses

    crt;

  type

     articulos_compra = record

                  articu : string[50];

                  cantid : integer;

               preciouni : real;

             end;

   var

     cesta : array[1..50] of articulos_compra;

     cont : integer;

     total : real;

     salir : boolean;

     tecla : char;

   procedure producto;

   begin

       clrscr;

       writeln('**** Entrada Producto comprado ****');

       writeln;

       write('  Entre Nombre Articulo : ');

       readln(cesta[cont].articu);

       write('  Cantidad Tomada       : ');

       readln(cesta[cont].cantid);

       write('  Precio Unidad         : ');

       readln(cesta[cont].preciouni);

   end;

   begin

      cont := 1;

      total := 0.0;

      salir := false;

   repeat

      producto;

      writeln('  Elgasto En Este Articulo Es : ',cesta[cont].cantid *

                                   cesta[cont].preciouni:0:2);

      total := total + (cesta[cont].cantid * cesta[cont].preciouni);

      writeln('  El Total Gastado Asta Hora  : ',total:0:2);

      writeln;

      writeln(' Desea Incorporar Mas Articulos  [S/N]');

      repeat

          tecla := upcase(readkey);

      until tecla in['S','N'];

      if tecla = 'S' then

      begin

      clrscr;

      cont := cont + 1;

      end;

      if tecla = 'N' then

      salir := true;

   until salir = true;

   clrscr;

   writeln('****** El Resultado Total De La Compra ********');

   writeln;

   writeln('  Es El Valor De : ',total:0:2);

   writeln;

   writeln('>>>> Pulse Una Tecla <<<<');

   readkey;

  end.

{a ver si esto ayuda}

Proceso sin_titulo

	Definir nombre como cadena;

	Definir unidades,preciounidad,total como real;

	definir t,i como entero;

	dimension nombre[5],unidades[5],preciounidad[5],total[5]

	t := 1;

	repetir

	Limpiar Pantalla

		Escribir "Entre Nombre Producto ";

		Leer nombre[t];

		Escribir "Entre Unidades ";

		Leer unidades[t];

		Escribir "Entre Precio Unidad ";

		Leer preciounidad[t];

		total[t]<-unidades[t]*preciounidad[t];

		Escribir "El Total Es : ",total[t];

		Escribir "Elija 1= mas 2=salir (1-2): "

		Leer P;

		Si p=1 Entonces

		   t <- t + 1

		Sino

			t := t;

		Fin Si

	Hasta Que P=2

	Para i<-1 Hasta t Hacer

	result := result + total[t];

	Fin Para

	Escribir "El Total De Lo Comprado Es :",result;

FinProceso