Задача. Указатели, Написание программы без использования массивов Опции

[Killer]

Подскажите пожалуйста как написать вот эту программу БЕЗ использования МАССИВОВ...

Код

program test;
uses crt;
type id_node=^node;
     node=record
     x:integer;
     next:id_node;
     end;

var
i,max,n:integer;
nach,tek,temp:id_node;
f:TEXT;
posl:array [0..1000] of integer;
begin
clrscr;

writeln('LabRab 10, variant 9');
writeln;

i:=0; write('Datum order: ');
assign(f,'input.txt'); reset(f);
repeat read(f,posl[i]); write(posl[i],' '); i:=i+1; until (posl[i-1]=0);
close(f); n:=i;

writeln; write('Numbers of greatest elements: '); max:=posl[0];
for i:=1 to n-1 do if posl[i]>max then max:=posl[i];
for i:=0 to n-1 do if posl[i]=max then write(i+1,' ');

new(nach); tek:=nach;
for i:=0 to n-1 do
    if posl[i]<>max then
       begin
            tek^.x:=posl[i];
            if posl[i]<>0 then begin new(tek^.next); tek:=tek^.next; end
        else tek^.next:=NIL;
       end;

writeln; write('One-way list without greatest elements : ');
tek:=nach;
repeat write(tek^.x,' '); tek:=tek^.next; until tek=NIL;

readkey;
end.

[Гость]

Все OK
Работает без сучка и задоринки
Спасибо !