ОЧЕНЬ Как провести анализ корреляционной зависимости на наличие линейной корреляции? Найти КОРРЕЛ что-ли?

Program soprotiv; {Название программы} 
var r1, r2:real; {Задаем переменные} 
c:byte; 
begin {Начало программы} 
write ('Введите 1 сопротивление... '); {Вывод сообщения о вводе данных} 
readln (r1); {Ввод данных с клавиатуры} 
write ('Введите 2 сопротивление... '); {Вывод сообщения о вводе данных} 
readln (r2); {Ввод данных с клавиатуры} 
write ('Если соединение параллельное, то нажмите клавишу 1, если соединение последовательное - нажмите 0...'); {Вывод сообщения о вводе данных} 
readln (c); {Ввод данных с клавиатуры} 
if c=1 {условие} 
then writeln ('Сопротивление электрической цепи, соединенной параллельно=',(r1*r2)/(r1+r2)) {Вывод значения, при параллельном соединении} 
else writeln ('Сопротивление электрической цепи, соединенной последовательно=',(r1+r2)); {Вывод значения, при последовательном соединении} 
end. {Конец программы} 

1.
var
   n,i,m:integer;
   x:real;
begin
write('Число оценок: '); 
readln(n);
for i:=1 to n do
  begin
  writeln('Введите оценку: ');
  readln(m);
  x:=x+m
  end;
x:=round(x/n);
writeln('Оценка за четверть ',x)
end.

2.
var
   n:integer;
  a,b,c:real;
begin
write('Число a: ');
readln(a);
if a>0 then n:=1;
write('Число b: ');
readln(b);
if b>0 then n:=n+1;
write('Число c: ');
readln(c);
if c>0 then n:=n+1;
writeln('Число положительных ',n)
end.

3.
var
   n,i,s:integer;
   a:array of integer;
begin
write('Размер массива: ');
readln(n);
SetLength(a, n);
for i:=0 to n-1 do
  begin
  a[i]:=random(-3,3);
  write(a[i]:3);
  if a[i]<>0 then s:=s+1
  end;
writeln;
write('Ненулевых элементов: ',s);  
end.