помогите пожалуйста,не могу сделать.срочняк!

[дайкири]

Даны три номерных знака автомашин.Найти номерной знак,содержащий буквы "МОН",и вывести его на печать.Если такого знака среди заданных нет,то напечатать соответствующее сообщение

[Sazary]

Один из вариантов (если буквы MOH стоят рядом):

uses crt;
const N = 3;
var
ss : array[1..N] of string;
i,k : integer;
yn : boolean;
begin
clrscr;
yn := false;
for i:=1 to N do
 begin
 writeln('Vvedite nomer ',i);
 readln(ss[i]);
 end;
writeln('---------');
k := 0;
for i:=1 to N do
 begin
 k := pos('MOH',ss[i]);
 if k <> 0 then begin
                writeln(ss[i]);
                if not yn then yn := true;
                end;
 end;
if not yn then writeln('Nomer ne najden');
readln;
end.

Пожалуйста, в следующий раз читайте правила перед созданием темы.

[Sazary]

Другой вариант. Это если буквы расположены не рядом.
Длина каждого номера - 6 символов (можно изменить). Вообще тоже через стринги можно сделать.

uses crt;
const NN = 3;MM=6;
var
ss : array[1..NN,1..MM] of char;
i,j : integer;
m,o,h,yn : boolean;
begin
clrscr;
for i:=1 to NN do
 begin
 writeln('Vvedite nomer ',i);
 readln(ss[i]);
 end;
writeln('--------');
yn := false;
for i:=1 to NN do
 begin
 m := false;
 h := false;
 o := false;
 for j:=1 to MM do
  begin
   if ss[i,j] = 'M' then m := true;
   if ss[i,j] = 'O' then o := true;
   if ss[i,j] = 'H' then h := true;
  end;
  if m and h and o then
   begin
   writeln(ss[i]);
   if not yn then yn := true;
   end;
 end;
if not yn then writeln('Nomer ne najden');
readln;
end.

upd И еще один вариант со стрингами (буквы стоят не рядом):

uses crt;
const NN = 3;
var
ss : array[1..NN] of string;
i,j : integer;
m,o,h : integer;
yn : boolean;
begin
clrscr;
m := 0;
o := 0;
h := 0;
yn := false;
for i:=1 to NN do
 begin
 writeln('Vvedite nomer ',i);
 readln(ss[i]);
 end;
writeln('-----');
for i:=1 to NN do
 begin
 m := pos('M',ss[i]);
 h := pos('H',ss[i]);
 o := pos('O',ss[i]);
 if (m<>0) and (o<>0) and (h<>0) then
  begin
  writeln(ss[i]);
  if not yn then yn := true;
  end;
 end;
if not yn then writeln('Nomer ne najden');
readln;
end.

[Tkirill]

uses crt;
var
s:array[1..3] of string;
i,n:integer;
f:boolean;
begin
clrscr;
for i:=1 to 3 do
readln(s[i]);
f:=false;
writeln;
for i:=1 to 3 do
begin
if (pos('M',s[i])<>0) and (pos('O',s[i])<>0) and (pos('H',s[i])<>0) then begin f:=true; n:=i; end;
end;
if f then writeln(s[n])
else writeln(' Dannogo znaka net ');
readln;
end.

[дайкири]

спасибо большое)