a podrobnee nel'zja napisat??? i 4to zna4it AK

Если понял правильно, то так:
Program mas;
uses crt;
var A:array [1..10] of integer;
i:integer;
ok:boolean;
begin
clrscr;
i:=1;
while i<=10 do
begin
write(i,' - ');
readln(a[i]);
if a[i]<>0 then inc(i);
end;
clrscr;
for i:=1 to 9 do
if a[i]

Если понял правильно, то так:
Program mas;
uses crt;
var A:array [1..10] of integer;
k:integer;
ok:boolean;
begin
clrscr;
k:=1;
while k<=10 do
begin
write(k,' - ');
readln(a[k]);
if a[k]<>0 then inc(k);
end;
clrscr;
for k:=1 to 9 do
if a[k]