Помогите решить задачи на паскале

[ddeman666]

1)напечатать таблицу соответствии между весом в фунтах и весом в килограммах для значений от 1 до 10 фунтов с шагом 1 фунт (1 фунт=400 грамм).
2) Проверить имеется ли в одномерном числовом массиве хотя бы одна пара соседних чисел, являющихся противоположными.

[IT-man]

{напечатать таблицу соответствии между весом в фунтах и 
весом в килограммах для значений 
от 1 до 10 фунтов с шагом 1 фунт (1 фунт=400 грамм)}
var i:integer;
begin
for i:=1 to 10 do
Writeln(i,' pounds=',(i*0.4):6:2,' kg');
readln;
end.

{Проверить имеется ли в одномерном числовом
массиве хотя бы одна пара соседних чисел, являющихся противоположными.} 
var i,n:integer;
a:array[1..100] of integer;
k:integer;
begin
k:=0;
writeln('n=');
Readln(n);
for i:=1 to n do
Readln(a[i]);
clrscr;
Writeln('---------------------');
for i:=1 to n do
write (a[i]:5);
writeln;
Writeln('---------------------');
for i:=1 to n-1 do
if (abs(a[i])=abs(a[i+1])) and (a[i]*a[i+1]<0) then
begin
writeln(i,' and ',i+1);
k:=1;
end;
if k<>1 then writeln('No');
readln;
end.