Составить программу занесения в динамическую память вещественного массива из 10000 вещественных чисел, хранящихся в типизированном файле на жестком диске, осуществить поиск в нем значения и номера первого максимального элемента — Pascal(Паскаль)

uses crt;
type p=^a;
     a=array[1..5000]of integer;
     f=file of integer;
var mas:p;
    i,ind,max:integer;
    f1:f;
begin
clrscr;
randomize;
assign(f1,'data.txt');
rewrite(f1);
new(mas);
for i:=1 to 5000 do
begin
     mas^[i]:=random(1000)-500;
     write(f1,mas^[i]);
end;
reset(f1);
max:=mas^[1];
for i:=1 to 5000 do
if mas^[i]>max then
begin
     max:=mas^[i];
     ind:=i;
end;
close(f1);
dispose(mas);
writeln('Максимальный элемент=',max,' Его номер=',ind);
end.