Подключить задачу с помощью ^ Опции

[6ac9k]

uses crt;
var b,a:array [1..100] of integer;
c,n,i:integer;
begin
clrscr;
writeln ('vvedite koli4estvo elementov :');
readln (n);
for i:=1 to n do
begin
writeln ('vvedite ',i,' element :');
readln (a[i]);
end;
c:=0;
for i:=1 to n do
begin
if a[i]<>0 then
 begin
  inc(с );
  b[c]:=a[i];
 end;
end;
for i:=c+1 to n do
begin
b[i]:=0;
end;
for i:=1 to n do
begin
write(b[i]);
end;
readkey;
end.

Нужно обратиться к ней с помощью ^
У меня бред получается..просто плохо соображаю..не могу нигде книгу скачать бесплатно по Паскалю..
Конспекта видно мало..

В общем у меня вот такой бред получился:

uses crt;
type T=array[1..100] of integer;
type G=array[1..100] of integer;
var
b:^T;
a:^G;
c,n,i:integer;
begin
clrscr;
writeln ('vvedite koli4estvo elementov :');
readln (n);
getmem(a,sizeof(integer));
getmem(b,sizeof(integer));
for i:=1 to n do
begin
writeln ('vvedite ',i,' element :');
readln (a^[i]);
end;
c:=0;
for i:=1 to n do
begin
if a^[i]<>0 then
 begin
  inc(с );
  b^[c]:=a^[i];
 end;
end;
for i:=c+1 to n do
begin
b^[i]:=0;
end;
for i:=1 to n do
begin
write(b^[i]);
end;
readkey;
end.

Что-то не сходится

М

6ac9k, используй теги! Lapp