решите я не понимаю номер 5

Не очень корректно объяснили, но если правильно вас понял:
 Program G;
 Var n, z, m, p: integer;
 Begin 
  z:=0;
  p:=0; 
 m:=0; 
 Writeln('Введите число n. Число 9999 завершает цикл.'); 
 Readln(n); 
 While n<>9999 do 
  Begin   
   If n=0 then inc(z);   
    else if n>0 then inc(p);   
    else inc(m);   
   Writeln('Введите число');   
   Readln(n); 
  End; 
 Writeln('Было введено ', z, ' нулей.'); 
 Writeln('Было введено ', p, ' положительных чисел.'); 
 Writeln('Было введено ', m, ' отрицательных чисел.');  
 Readln;
 End.

//Боль
//Pascal ABC.NET 3.1 сборка 1219

Var
 f:text;
 max,min,p:real;
 maxn,minn,n,i:integer;
 ar:array of real;
 s:string;
begin
max:=real.MinValue;
min:=real.MaxValue;
n:=0;
 assign(f,'text.txt');
 reset(f);
 while not(Eof(f)) do
  begin
   read(f,p);
   inc(n);
   setlength(ar,n);
   ar[n-1]:=p;
   if ar[n-1]>max then
    begin
     max:=ar[n-1];
     maxn:=n-1;
    end;
   if ar[n-1]<min then
    begin
     min:=ar[n-1];
     minn:=n-1;
    end;
  end;
 close(f);
swap(ar[minn],ar[maxn]);
for i:=0 to n-1 do
if i<>n-1 then s:=s+floattostr(ar[i])+' '
else
s:=s+floattostr(ar[i]);
rewrite(f);
write(f,s);
close(f);
end.

Пример содержимого text.txt:
0 -2.1 1.1
Пример содержимого text.txt после работы программы:
0 1.1 -2.1