Помогите решить задачу на языке Pascal

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

program dk;
uses crt;

type PNode=^TNode;
TNode=record
Data:integer;
Next:PNode;
end;
var M:PNode;
h,r:integer;

procedure create(var T:PNode);
var p,q:PNode;
b,i,n:integer;
begin
new(T);
writeln('введите количество элементов списка: ');
readln(n);
if n=0 then T:=nil
else begin
writeln('введите список: ');
read(b);
T^.Data:=b;
new(T^.Next);
T^.Next:=nil; p:=T;
for i:=1 to n-1 do begin
new(q); new(q^.Next);
read(b);
q^.Data:=b;
q^.Next:=nil;
p^.Next:=q;
p:=p^.Next end
end end;

procedure output(L:PNode);
var k:integer;
p:PNode;
begin
k:=0;
while L<>nil do begin
p:=L;
k:=k+1;
write(L^.Data,' ');
L:=L^.Next end;
writeln;
writeln('количество элементов списка: ',k);
writeln('адрес последнего элемента: ',p);
end;

begin
create(M);
if M<>nil then
begin
writeln;
writeln('вот ваш список: ');
output(M);
writeln;
end else writeln('список пуст');
readln;
end.

удачи!! ! =)

задача, кстати, очень простая... просто вывести элементы, их количество... приходилось не такие решать

Чем помочь-то ?

Глупости пишем... Класс изначально не правильно задан

Что то типа такого.
var
Rec : array of TNode;
i :integer;
begin
while Rec[ i ].Next <> nil do
begin
inc(i);
Writeln(IntTostr(Rec[ i ].Data));
end;

Ниже отписавшийся не путайте классы с записями

del