Вывод графика прямоугольного импульса

const 
Pi=3.14;
 
var A,s1,S,b,c,h,i1,W,i2,y:real;
var T,k: set of integer  ;
begin
write('Введите значение соответствующее длительности имппульса t=');
read(o);
write('Введите значение соответствующее амплитуде имппульса A=');
readln(A);
WriteLn ('Получение чисел из интервала [D,G].');            
Write ('Введите значение D:= ');      
ReadLn (D);        
Write ('Введите значение G:= ');       
ReadLn (G);         
T:=[D..G];
{For i1 := D to G do
 begin
      T[i1] := random ;
      write(T[i1]:6:2) ;
 end };
if i1<=h then s1:=A;
if i1>=h then s1:=0;
WriteLn ('Получение чисел из интервала [V,N].');            
Write ('Введите значение V:= ');      
ReadLn (V);        
Write ('Введите значение N:= ');       
ReadLn (N);         
k:=[V..N];
{For i2 := V to N do
 begin
      k[i2] := random ;
      write(T[i2]:6:2) ;
 end };
h:=o/f;
y:=pi/o;
W:=i2*y;
b:=W*(o/2);
c:=Sin(b);
S:=A*o*(c/b);

uses GraphAbc;
const dt=0.01;
      tn=-10;
      tk=10;
      
begin
  var ww:=640;var hw:=480;
  SetWindowSize(ww,hw);
  var t1:=ReadlnReal('Введите значение соответствующее длительности импульса t=');
  var A:=ReadlnReal('Введите значение соответствующее амплитуде имппульса A=');
  var v:=ReadlnReal('Введите значение V= ');
  var n:=ReadlnReal('Введите значение N= '); 
  ClearWindow;
  var t:=Range(0,abs(round((tk-tn)/dt))).Select((r,i)->tn+i*dt).ToArray;
  var s:=t.Select(r->abs(r)<=t1/2?A:0).ToArray;
  line(ww div 2,0,ww div 2,hw div 2);
  line(0,hw div 2,ww,hw div 2);
  var dy:=hw/3/s.Max;
  var dx:=ww/t.Count;
  moveto(0,hw div 3-round(s[0]*dy));
  for i:integer:=0 to t.Count-1 do lineto(round(i*dx),hw div 2-round(s[i]*dy),clred);
  var k:=Range(0,abs(round((N-V)/dt))).Select((r,i)->v+i*dt).ToArray;
  var W:=k.Select(r->r*pi/t1).ToArray;
  var Sk:=W.Select(r->r<>0?abs(A*t1*sin(r*t1/2)/(r*t1/2)):A*t1).ToArray;
  line(ww div 2,0,ww div 2,hw-10);
  line(0,hw-10,ww,hw-10);
  dy:=hw/3/Sk.Max;
  dx:=ww/W.Count;
  moveto(0,hw-10-round(Sk[0]*dy));
  for i:integer:=0 to W.Count-1 do lineto(round(i*dx),hw-10-round(Sk[i]*dy),clred);
end.

uses GraphAbc;
const dt=0.01;
      tn=-10;
      tk=10;
      
begin
  var ww:=640;var hw:=480;
  SetWindowSize(ww,hw);
  var t1:=ReadlnReal('Введите значение соответствующее длительности импульса t=');
  var A:=ReadlnReal('Введите значение соответствующее амплитуде имппульса A=');
  var v:=ReadlnReal('Введите значение V= ');
  var n:=ReadlnReal('Введите значение N= '); 
  ClearWindow;
  var t:=Range(0,abs(round((tk-tn)/dt))).Select((r,i)->tn+i*dt).ToArray;
  var s:=t.Select(r->abs(r)<=t1/2?A:0).ToArray;
  line(ww div 2,0,ww div 2,hw div 2);
  line(0,hw div 2,ww,hw div 2);
  var dy:=hw/3/s.Max;
  var dx:=ww/t.Count;
  moveto(0,hw div 3-round(s[0]*dy));
  for i:integer:=0 to t.Count-1 do lineto(round(i*dx),hw div 2-round(s[i]*dy),clred);
  var k:=Range(0,abs(round((N-V)/dt))).Select((r,i)->v+i*dt).ToArray;
  var W:=k.Select(r->r*pi/t1).ToArray;
  var Sk:=W.Select(r->r<>0?A*t1*sin(r*t1/2)/(r*t1/2):A*t1).ToArray;
  line(ww div 2,0,ww div 2,hw-10);
  line(0,hw-hw div 8,ww,hw-hw div 8);
  dy:=hw/3/Sk.Max;
  dx:=ww/W.Count;
  moveto(0,hw-hw div 8-round(Sk[0]*dy));
  for i:integer:=0 to W.Count-1 do lineto(round(i*dx),hw-hw div 8-round(Sk[i]*dy),clred);
end.