динамические переменные

[Veronika_13]

Pascal ABC.Net.
Для динамического массива подсчитать количество его элементов, равных наибольшему элементу массива.
есть наброски кода, но что-то не идёт
program laba_7;
type
p=^tree;
tree=record
data:longint;
next:v ;
end;
var
n,a,m,kol:longint;
x,head,pred:v ;
begin
writeln('Введите количесвто элементов');
readln(n);
writeln('Введите сами элементы через пробел');
m:=n;
kol:=0;
while n>0 do
begin
read(a);
new(x);
if n<>m then
pred^.next:=x;
x^.data:=a;
if n=m then head:=x;
dec(n);
pred:=x;
end;
x^.next:=nil;
while head<>nil do
begin
//write(head^.data,' ');

if х.Get(i)=х.MaxElement
then inc(kol);
head:=head^.next;
end;
writeln('Количество максимальных элементов = ',kol);
end.

[ZX Spectrum-128]

В pascalabc.net динамические массивы прямо введены в синтаксис языка. Открыв справочник по языку, вы легко найдете соответствующий раздел.
В коем есть и примеры с динамическими массивами.