Algoritmia - ayudaaa porfa es mi final

uses crt;

var

	x,y,z,mayor,suma,n,i:integer;

	edad:array[1..100] of byte;

	grado:array[1..100] of char;

	prom:real;

begin

	clrscr;

	suma:=0;

	prom:=0;

	mayor:=0;

	x:=0;

	y:=0;

	z:=0;

	write('Cantidad de personas encuestadas: ');

	readln(n);

	//ingreso de datos

	for i:=1 to n do begin

		write('Grado de instruccion [P]=Primaria, [S]=Secundaria, [U]=sUperior: ');

		readln(grado[i]);

		write('Edad de la persona: ');

		readln(edad[i]);

	end;

	//promedio y otros

	for i:=1 to n do begin

		case grado[i] of

			'P':inc(x);

			'S':inc(y);

			'U':inc(z);

		end;

		suma:=suma + edad[i];

		if edad[i] > mayor then

			mayor:=edad[i];

	end;

	prom:=suma/n;

	writeln;

	writeln('Promedio de edades: ',prom:4:2);

	writeln('La edad mayor es: ',mayor);

	writeln('Grado de instruccion primaria ',x,' persona(s)');

	writeln('Grado de instruccion secundaria ',y,' persona(s)');

	writeln('Grado de instruccion superior ',z,' persona(s)');

end.