ошибки

[Arcueid1691]

Что значит ошибка: операнды имеют неприводимые типы?

[Sazary]

Это где такое? А как она на английском звучит?
Хорошо бы посмотреть на кусок кода, где она возникает.

Вообще, это значит, что нельзя привести один тип к другому (например, строку к числу).

[Arcueid1691]

это я предприняла попытку перевести из С в Паскаль...

uses crt;
var
i : integer;
m1: integer;
a: array[1..10] of integer;  // ìàññèâ èç 10 öåëûõ ÷èñåë

begin
clrscr;
for i:=1 to 10 do
 a[i] := i;
readln;
for i:=1 to 10 do begin
 IF (m1=0 or a[m1]<a[i]) then m1:=i;
  end;
 writeln(a[m1]);
  for i:=1 to 10 do begin
  if ((i!=m1) and (m2=0 or a[m2]<a[i])) then m2:=i;
  end;
  writeln(a[m2]);
end.

З.Ы.: с использаванием вашего кусочка

[Sazary]

Только в следующий раз указывайте само задание.
Я-то его еще помню, а вот другие заглянувшие не в курсе.

Ошибки в синтаксисе. В паскале каждое условие нужно заключать в отдельные скобки. И знак неравенства тоже не так пишется.
И еще переменные m1 и m2 не проинициализированы.

uses crt;
var
i : integer;
m1,m2: integer;
a: array[1..10] of integer; 

begin
clrscr;
m1 := -1;
m2 := -1;
for i:=1 to 10 do
 a[i] := i;

for i:=1 to 10 do begin
 IF (m1=0) or (a[m1]<a[i]) then m1:=i;
  end;
 writeln(a[m1]);
  for i:=1 to 10 do begin
  if ((i<>m1) and ((m2=0) or (a[m2]<a[i]))) then m2:=i;
  end;
  writeln(a[m2]);
readln;
end.

Задание:

найти 2 максимума в заданном массиве.

[Arcueid1691]

Сообщение от Sazary

Только в следующий раз указывайте само задание.
Я-то его еще помню, а вот другие заглянувшие не в курсе.

Задание:

учту в следующий раз, но надеюсь что его не будет. Все таки хочется самостоятельно писать.

[Arcueid1691]

ошибка: выход за границы диапазона изменения индекса 1...10 (строка 15)

[Sazary]

Сообщение от Arcueid1691

ошибка: выход за границы диапазона изменения индекса 1...10 (строка 15)

Да, не заметил..
Либо инициализируйте m1 и m2 нулями, либо в условиях замените нули на -1.

[Arcueid1691]

заменила в условиях, программа не запрашивает ввод массива, выдает 10 и 9. в чем причина?

[Arcueid1691]

дописала readln массив запрашивает, но выдает все те же 10 и9

uses crt;
var
i : integer;
m1,m2: integer;
a: array[1..10] of integer;

begin
clrscr;
m1 := -1;
m2 := -1;
for i:=1 to 10 do
 a[i] := i;
 readln;
for i:=1 to 10 do begin
 IF (m1=-1) or (a[m1]<a[i]) then m1:=i;
  end;
 writeln(a[m1]);
  for i:=1 to 10 do begin
  if ((i<>m1) and ((m2=-1) or (a[m2]<a[i]))) then m2:=i;
  end;
  writeln(a[m2]);
readln;
end.

[Sazary]

Сообщение от Arcueid1691

заменила в условиях, программа не запрашивает ввод массива, выдает 10 и 9. в чем причина?

Причина в том, что вы нигде и не запрашиваете элементы массива, а присваиваете им значение счетчика:

for i:=1 to 10 do
 a[i] := i;

10 и 9 - результат работы (максимумы).

дописала readln массив запрашивает

Во-первых, если тело цикла не заключать в блок begin-end, то будет выполняться только первая инструкция.
Во-вторых, чтобы ввести значение, нужно указывать переменную как аргумент в readln.