помогитерешить задачу определить и вывести на экран наибольшее трёхзначное число, записанное в целочисленном массиве из

Как то так:

program Arrays;

uses
Crt;

var
iCount, MaxValue: Integer;
MyArray: array [Byte] of Integer;

begin
ClrScr;

Randomize;

for iCount := Low(MyArray) to High(MyArray) do
MyArray[iCount] := Random(MaxInt) - Random(MaxInt);

MaxValue := MyArray[Low(MyArray)];

for iCount := Low(MyArray) + 1 to High(MyArray) do
if (MaxValue < MyArray[iCount]) and
(MyArray[iCount]