делфи указатели

[христик]

Добрый день,
помогите пожалуйста немного переделать программу:
Дано описание: type RtrRe = ^Real; Vector = Array [1..100] of RtrRe;
Считая, что все элементы вектора X отличны от Nil, построить функцию MAX(x) для нахождения наибольшего из чисел, на которые ссылаются элементы вектора х.

Program ykazateli;
type RtrRe = ^Real; Vector = Array[1..100] of RtrRe;
var
 X : Vector; 
function max(Y : Vector): boolean;
var
 i,j:integer;
begin
 same := false;
 for i := 1 to 100 do
 for j := i+1 to N-100 do
 if (Y[i]=Y[j])
 then
 begin
 same := true;
 exit;
 end;
end;
begin

ReadLn;
end.

[Serge_Bliznykov]

я бы так написал:

program Project6;

{$APPTYPE CONSOLE}
type
  RtrRe = ^Real;
  Vector = Array[1..100] of RtrRe;

procedure FillVectorRandom(var Y : Vector);
var
  i : integer;
begin
  for i := low(Vector) to High(Vector) do begin
    New(Y[i]);
    Y[i]^ := random * random(11); {случайные дробные числа от нуля до 10}
  end;
end;

procedure PrintVector(Y : Vector);
var
  i : integer;
begin
  for i := low(Vector) to High(Vector) do
    Write(Y[i]^:2:5,' ');
  WriteLn;
end;

function max(Y : Vector): real;
var
  i, iMax:integer;
begin
 iMax := low(Vector);
 for i := low(Vector)+1 to High(Vector) do
    if Y[i]^>Y[iMax]^ then iMax := i;
 max := Y[iMax]^;
end;

var
  X : Vector;
begin
  Randomize;
  FillVectorRandom(X);
  PrintVector(X);
  WriteLn('Mamimum = ', max(X):2:5);
  ReadLn;
end.

[христик]

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

[христик]

а можно сделать с этими данными функцию, которая бы возвращала первый из элементов вектора х, ссылающихся на отрицательные числа или nil, если таких нет???

[Serge_Bliznykov]

как вариант

function FindFirstNegative(Y : Vectror) : RtrRe;
var i : integer;
begin
 FindFirstNegative := nil;
 for i := low(Y) to High(Y) do
   if Y[i]^<0 then begin
     FindFirstNegative := Y[i];
     Exit;
   end;
end;