File/text/real

program Treangls;
 
uses ABCObjects, GraphABC;
 
var
k, i, n, y0, x0, x1, j, rr,gg,bb: integer;
ary:array[1..100] of integer;
arr:array[1..100] of real;
MaxY:real;
strH, st:string;
TextF:TextABC;
initFile: file of real;
begin
 
     x0:=0;
     y0:=250;
     x1:=x0;
     k:=0;
 
     assign(initFile,'initFile.dat');
 
     reset(initFile);
     k:=0;
     while(not eof(initFile)) do
     begin
        k:=k+1;
        read(initFile,arr[k]);
     end;
     n:=k;
     close(initFile);
 
     for i:=1 to n do
     begin
         ary[i]:=round(arr[i]);
     end;
 
     MoveTo(x0,y0);
     for i:=1 to n do
     begin
         x1:=x0+30;
         LineTo(x1,ary[i]);
 
             if(ary[i]<y0)then
             begin
                  Str((Abs(y0-arr[i])):3:3,st);
                  strH:=st;
                  TextF:=TextABC.Create(x1-15,(ary[i]-25),8,clGreen,strH);
             end
             else if(ary[i]>y0)then
             begin
                  Str((Abs(y0-arr[i])):3:3,st);
                  strH:=st;
                  TextF:=TextABC.Create(x1-15,(ary[i]+15),8,clRed,strH);
             end;
 
         MoveTo(x1,ary[i]);
         x1:=x1+30;
         LineTo(x1,y0);
         LineTo(x0,y0);
 
         Randomize;
         rr:=Random(256);
         gg:=Random(256);
         bb:=Random(256);
 
         if(ary[i]<y0)then
              FloodFill((x0+10), y0-1, rgb(rr,gg,bb))
         else if(ary[i]>y0)then
              FloodFill((x0+10), y0+1, rgb(rr,gg,bb));
 
         x0:=x1;
         MoveTo(x0,y0);
     end;
 
     MaxY:=abs(arr[1]-y0);
     k:=1;
     for i:=1 to n do
     begin
         if((abs(ary[i]-y0))>MaxY)then
            begin
                 MaxY:=abs(arr[i]-y0);
                 k:=i;
            end;
     end;
 
     Str(k,strH);
     st:='Ìàêñèìàëüíîå çíà÷åíèå âûñîòû: ';
     Str(MaxY,strH);
     st:=st+strH;
     TextF:=TextABC.Create(50,windowheight-40,14,clBlack,st);
end.

Program TreanglFileRandom;
var
k,n:integer;
MaxY, divY:real;
initFile: file of real;
begin
cls;
//=================------------------//
    assign(initFile,'initFile.txt');
    n:=10;
//=================------------------//
     Randomize;
     rewrite(initFile);
     for k:=1 to n do
     begin
        divY:=Random(1000)/1000;
        MaxY:=(Random(380)+50)+divY;
        if (MaxY>=250)and(MaxY<=255)then
        MaxY:=MaxY+10;
        if (MaxY<250)and(MaxY>=245)then
        MaxY:=MaxY-10;
        write(initFile,MaxY);
     end;
//=================------------------//
close(initFile);
end.

var f:text;