try                        // начало try

For j1:=1 to SG.RowCount-2 do
if (StrToFloat(SG.Cells[0, j1])=StrToFloat(SG.Cells[1, j1])) and (StrToFloat(SG.Cells[1, j1])=StrToFloat(SG.Cells[0, j1+1])) and (StrToFloat(SG.Cells[0, j1+1])=StrToFloat(SG.Cells[1, j1+1])) then
mrk_0:=mrk_0+1
else
mrk_0:=0;
if mrk_0=SG.RowCount-2 then
ShowMessage('Îäèíàêîâûå çíà÷åíèÿ')
else
begin
setlength(A, SG.RowCount-1);
setlength(B, SG.RowCount-1);

//ââîä äàííûõ
n:=SG.RowCount-1;
for i:=0 to n-1 do
begin
A[i]:=StrtoFloat(SG.Cells[0, i+1]);
B[i]:=StrToFloat(SG.Cells[1, i+1]);
end;

for i := 0 to n-1 do
begin
av1 := av1 + A[i];
av2 := av2 + B[i];
end;
av1 := av1 / n;
av2 := av2 / n;
for i := 0 to n - 1 do
m1 := m1 + (A[i] * B[i]);
m1 := m1 / n;
m2 := av1 * av2;
for i := 0 to n - 1 do
begin
d1 := d1 + sqr(A[i]);
d2 := d2 + sqr(B[i]);
end;
d1 := (d1 / n) - sqr(av1);
d2 := (d2 / n) - sqr(av2);
sd1 := sqrt(d1);
sd2 := sqrt(d2);
r := (m1 - m2) / (sd1 * sd2);
c := ((m1) - (av1 * av2)) / d1;
for i := 0 to n - 1 do
k := k + sqr(A[i]);
k := k / n;
k := ((k * av2) - (av1 * m1)) / (d1);

if (r > 0) and (r <= 1) then
Label6.Caption:='Ïîëîæèòåëüíàÿ';
if (r = 0) then
Label6.Caption:='Íóëåâàÿ';
if (r < 0) and (r >= -1) then
Label6.Caption:='Îòðèöàòåëüíàÿ';
Label7.Caption:=FloatToStr(r);
Label8.Caption:=FloatToStr(k);
Label9.Caption:=FloatToStr(c);

end;


// ÇÀÏÈÑÜ ÐÅÇÓËÜÒÀÒÎÂ Â ÌÀÑÑÈÂ

setlength(A, n+2);
setlength(B, n+2);
A[n]:=r;
A[n+1]:=k;
B[n]:=c;

except
on E: EConvertError do     // обязательная строка, в которой указывается тип ошибки, E не объявляется
begin                      // тут пишутся штуки, которые происходят в случае ошибки, begin и end - Так как два действия
Beep;
ShowMessage('Îøèáêà ââîäà. Óáåäèòåñü, ÷òî âñå ÿ÷åéêè çàïîëíåíû ÷èñëîâûìè çíà÷åíèÿìè.');
end;

end;