Pascal/Turbo Pascal - ninguno

HOLA Q TAL LES HABLA UN ALMA DESESPERADA QP2 LO QUE PASA ES Q TENEMOS EXAMNE SE TURBO PASCAL Y PUES NO LE HACMMOS AHI TODO EL SALON Y PUES ESTA DEL NABO Y NO SE DONDE ENCONTRAR UNO QSE PARESCA ALO Q PIDE ES ALFO DE FUNCIONES

CHEKEN ESTE ES EL EXAMEN

I.-MODIFIQUE EL CODIGO PROPORCIONADO DEL PROGRAMA ELABORADO EN PASCAL CON LO SIGUIENTE: (15 puntos c/u)

1. Una FUNCIÓN que permita buscar el artículo por medio de su código desplegando lo siguiente:
Si existe el código:
Desplegar Nombre del Artículo y Su Precio e Indique Cantidad a Comprar
De lo contrario
Desplegar un mensaje que diga Código de Articulo No encontrado
2. Una FUNCIÓN que permita pasarle la cantidad recibida y que envié el cambio a entregar


ESTE ES EL CODIGO

PROGRAM EXAMEN;
USES CRT;
Const
nTotArtic=2;
Type
Registro=Record
Codigo :String[12];
Articulo :String;
Precio :Integer;
End;
Var
arrCat :Array[1..nTotArtic] Of Registro;
F,C :Integer;
cCodigo:String;

PROCEDURE PintaLinea(Fila:Integer);
Begin
Gotoxy(1,Fila);
For F:=1 to 80 Do
Begin
WRITE('Ä');
End;
End;
PROCEDURE Captura;
Begin
For F:=1 to nTotArtic Do
Begin
ClrScr;
TextColor(Yellow);
Gotoxy(4,2);Write('Articulo x Capturar ',F,' de ',nTotArtic);
TextColor(White);
Gotoxy(4,4);Write('Codigo : ');Readln(arrCat[f].Codigo);
Gotoxy(4,6);Write('Articulo: ');Readln(arrCat[f].Articulo);
Gotoxy(4,8);Write('Precio : ');Readln(arrCat[f].Precio);
End;
End;

PROCEDURE Despliega;
Var
nFila :Integer;
Begin
textColor(Yellow);
Gotoxy( 4,10);Write('Codigo');
Gotoxy(20,10);Write('Articulo');
Gotoxy(50,10);Write('Precio');
TextColor(White);
nFila:=12;
For F:=1 to nTotArtic Do
Begin
Gotoxy( 4,nFila );Writeln(arrCat[f].Codigo);
Gotoxy(20,nFila);Writeln(arrCat[f].Articulo);
Gotoxy(50,nFila);Writeln(arrCat[f].Precio);
nFila:=nFila+1;
End;
PintaLinea(nFila);
End;

PROCEDURE Borrar;
Begin
TextColor(White);
TextBackground(Blue);
ClrScr;
End;

{Inicio del Programa}
Begin
Borrar;
Captura;
Despliega;
Repeat
TextColor(Yellow+Blink); {Se pone Letras Amarillas Brincando}
Gotoxy(4,18);Write('Indique 0 para salir');
TextColor(White); {Se pone Letras Blancas}
Gotoxy(4,20);Write('Codigo del Articulo? ');Readln(cCodigo)
Until cCodigo='0';
Gotoxy(4,32);Write('Fin del Programa....');
Delay(1000);
End.

CHEKENLO SI PUEDEN POR FA ES DE MUCHA AYUDA PARA MI Y MIS CUATES
ATTE. UN ALMA LLAMADA FRANCISCO

nesito el programa de turbo pascal pera mejorar algunas aplicaciones que debo ralizar gracias