Задачи(2) На Описание фун-ии и процедуру!!! Help Опции

[Geroi]

Кто с этим дружит, напишите своё решение...
1. Две геометрические фигуры вырезаны из бумаги: квадрат со стороной A и ромб с диагоналями C и D (данные вещественные). Описать функцию, аргументами которой являются размеры фигур, а результатом будет TRUE, если одна фигура больше другой и по площади и по периметру, и FALSE в противном случае.
2. Задан массив из 20 целых чисел. Описать процедуру для распечатки на экране номера первого среди ненулевых элементов.  
Или может продложение как их решать....

[Vit]

1.Вроде так, если я не ошибся с математикой...

Код

Function Check(A,B,C:real):boolean;
var s1,s2,p1,p2:real;
begin
 s1:=sqr(a);// площадь квадрата
 p1:=a*4;// периметер квадрата
 s2:=(c*d)/2;//площадь ромба
 p2:=4*sqrt(sqr(c)/4+sqr(d)/4));//периметер ромба
 result:=((s1>s2) and (p1>p2)) or ((s1<s2) and (p1<p2));
end;

2.

Код

for i:=1 to 20 do
 if a[i]<>0 then
  begin
    write(a[i]);
    break;
  end;