Программирование / Delphi, Pascal  / Процедуры и функции

const
n=10;
var
Form1: TForm1;
mass: array [1..n] of integer;// = (-1,-5,-2,-5,5,2,34,7,3,45);
implementation
{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
var j,i,k:integer;
begin
label1.Caption:='';
label2.Caption:='';
for j:=1 to n do
begin
k:=random(30);
i:=random(50)-k;
mass[j]:=i;
label2.Caption:=label2.Caption+' '+inttostr(j);
label1.Caption:=label1.Caption+' '+inttostr(mass[j]);
end;end;

procedure TForm1.Button2Click(Sender: TObject);
var i,k,index:integer;
begin
k:=0;
for i:=1 to n do begin
if k>=mass[i] then
begin
k:=mass[i];
index:=i;
end;
label3.Caption:=inttostr(k)+' при индексе в массиве '+inttostr(index);
end;end;

procedure TForm1.Button3Click(Sender: TObject);
var i,k,index:integer;
begin
k:=0;
for i:=1 to n do begin
if k<=mass[i] then begin
k:=mass[i];
index:=i;
end;
label4.Caption:=inttostr(k)+' при индексе в массиве '+inttostr(index);
end;end;
end.


procedure TForm1.Button1Click(Sender: TObject);
var
worldFile:textfile;
buf:string[3];
buf_1:string[3];
interv:string[1];
i,sumX,sumY,a,sumX_2,sumY_2:integer;
proiz,itog:real;
begin
i:=0; a:=0;sumX:=0; sumY:=0;sumX_2:=0;sumY_2:=0;
AssignFile(worldFile,'\cor\mas.txt');
reset(worldFile); // открыть для перезаписи
while not EOF(worldFile) do
begin
read(worldFile, buf, interv, buf_1, interv); // прочитать строку из файла
sumX:=sumX+strtoint(buf);
sumY:=sumY+strtoint(buf_1);
sumX_2:=sumX_2+sqr(strtoint(buf));
sumY_2:=sumY_2+sqr(strtoint(buf_1));
i:=i+SummXY(strtoint(buf),strtoint(buf_1));
inc(a);
end;
proiz:=(sumX*SumY)/a;
itog:=(i-proiz)/(sqrt((sumX_2-sqr(sumX)/a)*(sumY_2-sqr(sumY)/a)));
//memo1.Lines.Add(floattostr(itog));
memo1.Lines.Add(format('%2.6f',[itog]));
closefile(worldfile);
end;

* Вид файла такой x1 y1 x2 y2 x3 y3
** возможна редакция