[_kondratenko_]

Написал две программы, обе не работают Подскажите пожалуйста в чем ошибка
Первая:

Код:

var a1,a2,a3,b1,b2,b3,x,y;
Begin
a1:=StrToFloat(Edit1.Text);
a2:=StrToFloat(Edit2.Text);
a3:=StrToFloat(Edit3.Text);
b1:=StrToFloat(Edit4.Text);
b2:=StrToFloat(Edit5.Text);
b3:=StrToFloat(Edit6.Text);
if (sqrt(sqr(b1-a1)=sqr(b2-a2))=sqr(b3-a3)then
Edit9.Text:= 'коллениарны' else
Edit9.Text:= 'не коллениарны'
if sqrt(sqr(a1)+sqr(a2)+sqr(a3)>sqrt(sqr(b1)+sqr(b2)+sqr(b3) then
Bebin
Edit7.Text:= 'A>B';
x:=sqrt(sqr(a1)+sqr(a2)+sqr(a3)/sqrt(sqr(b1)+sqr(b2)+sqr(b3);
end;
else
if sqrt(sqr(a1)+sqr(a2)+sqr(a3)<sqrt(sqr(b1)+sqr(b2)+sqr(b3)
then
Edit9.Text:= 'A<B'
y:=sqrt(sqr(b1)+sqrt(sqr(b2)+sqrt(sqr(b3)
/sqrt(sqr(a1+sqr(a2)+sqrt(sqr(a3);
else
Edit9.Text:= 'A=B'
if(a1=b1)and(a2=b2)and(a3=b3)
then
Edit9.Text:='одинак.напр.'
else
Edit9.Text:='против.напр.'
End.

и вторая:
Var
K,L,j,i: integer
Y:array[1..10,1..10] of real;
X:array[10..10] of real;
Begin
L:=StrToint(Edit1.Text);
K:=StrToint(Edit2.Text);
StringGrid1.ColCount:=k+1
StringGrid1.RoWCount:=1
StringGrid2.ColCount:=k+1
StringGrid2.RowVount:=1
For j:=1 to K do
StringGrid1.Cells[o,j]:=intToStr(j);
For i=1 to L do
StringGrid1.Cells[i,o]:=intToStr(i);
For j:=1 to K do
For i=1 to L do
y[j;i]:=strtoFloat(StringGrid1.Cells[j;i];
For i:=1 to L do
Begin
X[i]=0;
For j:=1 to K do
X[j]:=X[i]+y[j;i];
end.
StringGrid2.Visible:=True;
For i=1 to L do
StringGrid2.Cells[j,o]:=FloattoStr(x[i]);
End.

Admin: Пользуемся тегами!