Easy Compras

program EasyCompras; // nombre del programa
uses crt;
const
totproductos=255; // designacion de constantes
n=80;
o=-14;
type// creacion de tipos de variables
productos= Record
produ:string[75];
preci:integer;
end;
List = array [1..totproductos] of productos;
Varlugar,preflider,prefjumbo,prefsta_isabel:integer; // variables globales utilizadas en el programa
productos_program:Text;
Lider,Jumbo,StaIsabel: Text;
programtemp: array [1..totproductos] ofstring[75];
carritoproductos,lidert,jumbot,staisabelt:list;
main:integer;
opcion,salir:char;
procedure temp; // proceso para pasar los datos de tipo text a arreglos de tipo record para podervar // trabajar mas facil con ellos dentro del cuerpo del programa.
a:integer;
begin
a:=0;
while not eof(lider) do
begin
a:=a+1;readln(productos_program, programtemp[a]);
readln(Lider,lidert[a].produ);
readln(Lider,lidert[a].preci);
readln(Jumbo,jumbot[a].produ);
readln(Jumbo,jumbot[a].preci);readln(Staisabel,staisabelt[a].produ);
readln(Staisabel,staisabelt[a].preci);
end;
end;

procedure presentacion;
var
a:integer;
begin
a:=0;for a:=1 to n do
begin
gotoxy(a,1);
writeln(' /\____________ ');
gotoxy(a,2);
writeln(' / | __/| ');
gotoxy(a,3);
writeln(' / | ( ) / | ');
gotoxy(a,4);
writeln(' |\___________/ | ');
gotoxy(a,5);writeln(' | EasyCompras| / ');
gotoxy(a,6);
writeln(' |____________|/ ');
gotoxy(a,7);
writeln(' O...