pequeña biblioteca

De 3 libros ingresados en una biblioteca, mostrar su categoria con solo dar su nombre.

program arrlibro;
uses crt;
var
x,y,z,e,f:integer;
lib:array[1..3]of string;
mat:array[1..3]of string;
a,b,c,d:String;
begin
x:=0; y:=0; z:=0; b:=''; d:=''; y:=0;e:=0; f:=0;
clrscr;
repeat
x:=x+1; y:=y+1; z:=z+1;f:=f+1;
Writeln('Diga el nombre del libro ',z,':');
readln(lib[x]);
writeln('Diga la materia del libro ',z,':');
readln(mat[y]);
until
(z=3);
Writeln('¨Desea hacer una consulta?');
readln(a);
if(a='si')or(a='Si')or(a='SI') THEN
WRiteln('Si desea hacer una consulta escriba el nombre del libro:');
read(a);
y:=0;
repeat
y:=y+1;
until
(a=lib[y]);
Write('Usted a adquirido el libro de ',lib[y], ' de la materia ',mat[y]);
readkey;
end.