Найдите ошибку

[St1fler92]

Uses crt;
Const n=10;
Var Z:array[1..n]of real;
i:integer; 
max,min,P:real;
Begin
Clrscr;
Randomize;
For i:=1 to n do begin
Z[i]:=random(100);
Read(Z[i]);
end;
max:=0;
For i:=1 to n do If max<Z[i] then max:=Z[i];
min:=max;
For i:=1 to n do If min>Z[i] then min:=Z[i];
P:=min*max;
Writeln('Proisvedenie =',P:0:0);
Readln;
end.

[Stilet]

Read(Z[i]);

Неказистость
А так ошибок не вижу...

[St1fler92]

Clrscr; пишит что это неизвестный индентификатор

[Stilet]

Паскаля под рукой нет, но вроде в классическом Турбопаскале не должно такого выкидвать...

[MalCer]

Clrscr; пишит что это неизвестный индентификатор

Вот только скомпилировал прогу. Все работает!!! Вы либо в делфи код пихаете?