Паскаль. Динамич массивы

[ProPaL]

Привет. Помогите плз написать программу через динмич. типы данных - никогда раньне не работал с этим, не знаю как... вот задание.. если не трудно можно пояснение

Дан массив P1, ... , P40.
Заменить Pmax и Pmin на среднее арифметическое всего ряда.

[Карась]

В паскале нет динамических массивов.

[ProPaL]

ну дин типы данных есть же?

[Serge_Bliznykov]

есть. Через указатели. читайте помощь и примеры на NEW(..) GetMem(..)

[ProPaL]

мм и как её написать?

[ProPaL]

Кто нибудь может помочь?

[alexBlack]

Писал на Delphi, поэтому в некоторых местах пропущен ^
Delphi это допускает. Компилятор Pascal подскажет где поставить.
Надеюсь дальше разберешься.

{
 Итак, динамические структуры данных
 Можно реализовать массив как связанный список
 Сначала введем структуру для хранения элемента списка
 Data - собственно данные элемента
 next - указатель на следующий элемент
}
type
   PData = ^TData;
   TData = record
      Data : integer;
      next : PData;
   end;

{ Теперь объявим ссылку на первый элемент списка }
var First : PData;
    P : PData;   // Для работы с элементами
    i, M:integer;
    Pmax, Pmin : PData;
begin
   { обязательная инициализация - список пуст }
   First := nil;

   { Добавление элементов делается следующим образом: }
   for i:=1 to 40 do begin
      { Распределяем память под элемент }
      getMem(P, sizeOf(TData));
      P^.Data := random(10);
      P^.next := nil;
      { Добавляем элемент в голову списка }
      if First = nil then First := P
      else begin
         P^.Next := First;
         First := P;
      end;
   end;

   { Проход по списку и вывод элементов }
   P := First;
   While P <> nil do begin
      write(P^.Data:2);
      P := P.next;
   end;
   writeLn;

   { Вычисление среднего арифметического }
   M := 0;
   P := First;
   While P <> nil do begin
      M := M + P^.Data;
      P := P.next;
   end;
   M := M div 40;
   writeLn(M);

   { Поиск максимального и минимального }
   Pmax := First;
   Pmin := First;
   P := First;
   While P <> nil do begin
      if P^.Data > Pmax^.Data then Pmax := P;
      if P^.Data < Pmin^.Data then Pmin := P;
      P := P.next;
   end;
   writeLn(Pmax^.data);
   writeLn(Pmin^.data);

   { Замена }
   Pmax^.Data := M;
   Pmin^.data := M;

   { Можно еще раз вывести список }
   P := First;
   While P <> nil do begin
      write(P.Data:2);
      P := P.next;
   end;
   writeLn;

   { После работы с данными освобождаем память }
   While First <> nil do begin
      P := First;
      First := P.Next;
      freeMem(P);
   end;

   readln;