Pascal/Turbo Pascal - almacene en un arreglo de registros la información de 50 socios de un club

uses crt;

const

	maximo = 50;

type

	socios = record

		numSocio:integer;

		apellidos,nombres:string;

		domicilio,localidad:string;

		valorCuota:real;

	end;

var

	club:array[1..maximo] of socios;

	c,i:integer;

	total:real;

begin

	clrscr;

	c:=0;

	total:=0;

	{ingreso de datos}

	for i:=1 to maximo do begin

		with club[i] do begin

			write('Numero de socio: ');

			readln(numSocio);

			write('Apellido: ');

			readln(apellidos);

			write('Nombre del asociado: ');

			readln(nombres);

			write('Domicilio: ');

			readln(domicilio);

			write('Localidad: ');

			readln(localidad);

			write('Valor de la cuota: ');

			readln(valorCuota);

		end;

	end;

	{calculos}

	for i:=1 to maximo do begin

		if club[i].localidad = 'Caba' then

			inc(c);

		total:=total + club[i].valorCuota;

	end;

	writeln;

	writeln('Numero de habitantes en la localidad de Caba ',c);

	writeln('Total cuota de todos los socios ',total:4:2);

end.