Все элементы массива разделить на первый элемент

uses crt;
var a,b:array [1..50] of real;
i,j,n:integer;
begin
clrscr;
writeln ('Vvedite razmernost');
readln (n);
writeln ('Vvedite elementy massiva');
for i:=1 to n do begin
write ('a[',i,']=');read(a[i]);
end;
writeln ('Novyy massiv');
for i:=1 to n do begin
for j:=1 to n do
b[j]:=(a[i])/(a[1]);
writeln ('b[',j,']=',b[j]:3:3);
end;
readkey
end.

uses crt;
var a:array [1..50] of integer;
i,n,min,max:integer;
label 1,2,3,4;
begin
clrscr;
writeln ('Vvedite razmernost');
readln (n);
writeln ('Vvedite elementy massiva');
for i:=1 to n do begin
write ('a[',i,']=');read(a[i]);
end;
min:=a[1];
i:=1;
begin
1:
i:=i+2;
if a[i]>0 then
if a[i]<min then min:=a[i];
min:=min;
if i<=(n-2) then goto 1
else goto 4;
end;
4:max:=a[1];
i:=1;
begin
3:
i:=i+2;
if a[i]>0 then
if a[i]>max then max:=a[i];
max:=max;
if i<=(n-2) then goto 3
else goto 2;
end;
2:writeln ('Maksimalnyy=',max);
writeln ('Minimalnyy=',min);
readkey
end.

Program Create;
uses crt;
Type Mas = Array[1..20] Of Integer;
Var A : Mas; I, J, N : Byte; Log : Boolean;
Begin
Writeln('Vvedite razmernost'); ReadLn(N);
randomize; A[1] := -32768 + random(65535);
For I := 2 To N Do
Begin
Log := True;
Repeat
A[i] := -32768 + random(65535); J := 1;
While Log and (j <= i - 1) Do
begin Log := a[i] <> a[j]; j := j + 1 End
Until Log
End;
For i := 1 to N Do Write(a[i]:7); writeln;
readkey
End.