estaciones aleatorias

hacer un programa que dado un nombre muestre una estacion del metro de caracas aleatoriamente.
{Con arreglos se hace mas facil}

program metro;
uses crt;
var
x,y:String;
r:integer;

begin
clrscr;
Writeln('Diga el nombre de la persona que desea ubicar en');
writeln('el sistema del metro de caracas:');
read(x);
randomize;
r:=random(36);
if(r=1)then
y:='Propatria'
else
if(r=2)then begin
y:='Perez Bonalde';
end
else
if(r=3)then begin
y:='Plaza Sucre';
end
else
If(r=4)then begin
y:='Gato Negro';
end
else
if(r=5)then begin
y:='Agua Salud';
end
else
if(r=6)then begin
y:='Ca¤o amarillo';
end
else
if(r=7)then begin
y:='Capitolio';
Writeln('posiblemente haga una transferencia a otra linea')
end
else
if(r=8)then begin
y:='Silencio';
end
else
if(r=9)then begin
y:='Capuchino';
end
else
if(r=10)then begin
y:='Maternidad';
end
else
if(r=11)then begin
y:='La Yaguara';
end
else
if(r=12)then begin
y:='La Paz';
end
else
if(r=13)then begin
y:='Artigas';
end
else
if(r=14)then begin
y:='Mamera';
end
else
if(r=15)then begin
y:='Antimano';
end
else
if(r=16)then begin
y:='Caricuao';
end
else
if(r=17)then begin
y:='Zoologigo';
end
else
if(r=18)then begin
y:='La Hoyada';
end
else
if(r=19)then begin
y:='Parque Carabobo';
end
else
if(r=20)then begin
y:='Bellas Artes';
end
else
if(r=21)then begin
y:='Colegio de Ingenieros';
end
else
if(r=22)then begin
y:='Plaza Venezuela';
Write('Posiblemente haga una transferencia a otra linea');
end
else
if(r=21)then begin
y:='Ciudad Universitaria';
end
else
if(r=22)then begin
y:='Los Simbolos';
end
else
if(r=23)then begin
y:='Zona Rental';
end
else
if(r=24)then begin
y:='Nuevo Circo';
end
else
if(r=25)then begin
y:='El Valle';
end
else
if(r=26)then begin
y:='La Rinconada';
end
else
if(r=27)then begin
y:='Sabana Grande';
end
else
if(r=28)then begin
y:='Chacaito';
end
else
if(r=29)then begin
y:='Chacao';
end
else
if(r=30)then begin
y:='Altamira';
end
else
if(r=31)then begin
y:='Miranda';
end
else
if(r=32)then begin
y:='Los Dos Caminos';
end
else
if(r=33)then begin
y:='Los Cortijos';
end
else
if(r=33)then begin
y:='La California';
end
else
if(r=34)then begin
y:='Petare';
end
else
if(r=35)then begin
y:='Palo Verde';
end
else
if(r=36)then
y:='Carapita';
Write(x,' Se encuentra en:',y);
readkey;
end.