Помогите найти ошибку в программе Паскаль!

Ты бы условие привела. А то - вот машина. Что должна делать, неизвестно, но не работает. Чините!

P.S. Другое дело.. . У кого содрала приведенную программу? Совершенно не по условию.. . По условию так:

program lab_7;
var p:array[1..12] of integer; i,m:integer;
begin
writeln('Vvedite 12 elementov massiva P'); for i:=1 to 12 do read (p); readln;
writeln ('Ishodniy massiv'); for i:=1 to 12 do write(p[ i]:6); writeln;
m:=p[1]; for i:=1 to 12 do if p[ i]>p[m] then m:=i;
writeln('nomer elementa ',m); writeln('znachenie elementa ',p[m]); readln
end.

ошибка: не виден текст самой программы)

а какое сообщение выдает компилятор

Вы же работаете с массивом не забывайте про [ i ] ну и у меня нету "tpcrt" есть лишь "crt"
возможно у вас есть
Program lab_7;
uses crt;
type mas=array[1..12] of integer;
var p:mas; i,b,nom:integer;
Begin
clrscr;
writeln('Vvedite 12 elementov massiva P');
for i:=1 to 12 do
read (p [ i ] );
writeln ('Ishodniy massiv');
for i:=1 to 12 do
write (p [ i ] ,' ');
b:=0;
Nom:=0;
for i:=1 to 12 do
begin
if (P [ i ] mod 5=0) and (P [ i ] >b) then
begin
b:=P [ i ] ;
nom:=i;
end;
end;
writeln('nomer elementa ',nom:2);
writeln('zna4enie elementa ',b:4);
readkey
End.
);
writeln ('Ishodniy massiv');
for i:=1 to 12 do
write (p [ i ] ,' ');
b:=0;
Nom:=0;
for i:=1 to 12 do
begin
if (P [ i ] mod 5=0) and (P [ i ] >b) then
begin
b:=P [ i ] ;
nom:=i;
end;
end;
writeln('nomer elementa ',nom:2);
writeln('zna4enie elementa ',b:4);
readkey
End.

тут явно не одна ошибка, хотя бы после реадкей точку с запятой поставить!

перед юзес црт убери тп... ты массив неправильно ввела... и вывела тоже