Algoritmo :Informar modelo ,pela placa informada

[lacoste]

Boa noite!

Estou tendo dificuldade em como definir este problema :

Solicite ao usuário que forneça o nome e a placa de 10 veículos. A placa deverá ser fornecida utilizando o formato LLLNNNN onde L é uma letra e N um número. Seu programa deverá informar quantos veículos são do tipo ‘GOL’ que possuem em sua placa a letra M e o número 2.

Tentei dessa forma, mais nao obtive exito :

program veiculo;

var

nome_veiculo,placa_carro:string;

total, contador,modelo:integer ;

begin

contador :=1;

modelo:= length (placa_carro);

total:=0;

while contador <= 2 do

begin

writeln ('digite o nome do veiculo :');

readln (nome_veiculo) ;

writeln ('digie a placa do carro (ex:xxx-1111): ') ;

readln (placa_carro);

begin

if (placa_carro [contador] = 'm') and (placa_carro [contador] = '2') then

total:=total+1;

contador:=contador+1;

end;

writeln ('sao veiculos do modelo GOL.:',total);

end;

end.

[lacoste]

por favor

me ajudem