Формировка массива, Народ, очень нужна помощь!!! помогите кто умеет это делать Опции

[Fisher]

В массиве Д1 состоящем из 21 элемента, имеются отрицательные, положительные, нулевые числа вещественного типа.(Вещественный тип-числа с дробной частью. Наприсер: 3,5; -45,54;)
Сформировать новый массив Д2, удалив из него нулевые элементы, а отрицательные-возведя в квадрат.
Массивы распечатать.

[neic]

uses crt;
var i,n:integer;
		s:real;
		d1,d2:array[1..21] of real;

begin
clrscr;
for i:= 1 to 21 do
begin
	write('Введите элемент матрицы D[',i,']:');
	read(s);
	d1[i]:=s
end;

writeln('Выводим исходную матрицу');

for i:=1 to 21 do
begin
	 write(' ',d1[i]1)
end;


for i:=1 to 21 do
begin
		 if d1[i]>0 then
				d2[i]:=d1[i]
		else if d1[i]<0 then
				d2[i]:=SQR(d1[i]);
end;
writeln;
writeln;
writeln('Выводим обработаную матрицу');
for i:=1 to 21 do
begin
		if d2[i]<>0 then write(' ',d2[i]:6:3)
end;
readkey
end.