Переделать код из Pascal в Delphi

[RedCap]

очень надо

\\---------------------------
program kp4(input,output)
 const n=20;
 b=0.1;
 type dv=double;
        mas=array[o..n] of dv;
 var t,y,ys,s,ss : mas;
      h,r,eps,sigma : dv;
      
 function f(c : dv):dv;
    begin
      f:=(1+2*(c+eps)+c*c*3+eps(-c*c/eps))/(c+1)
    end;

 function a(c : dv):dv;
    begin
      a:=1/(c+1)+2*c
    end;

 function K(c1,c2 : dv):dv;
    begin
      K:=2*c2*(1/(1+c1)-1)
    end;

 function yt(c : dv):dv;
    begin
      yt:=1+exp(-c*c/eps)
    end;

 begin
    h:=b/n;
    eps:=1.0;
    y[0]:=yt(0);
    ys[0]:=yt(0);
    for j:=0 to n do t[j]:=j*h
    for i:=1 to 4 do begin
     r:=h/eps;
     for i:=0 to n-1 do begin
       s[i]:=0; ss[i]:=0;
        if i>1 then
          for j:=1 to i do begin
            s[i]:=s[i]+h*K(t[i],t[j])*y[j]
            ss[i]:=s[i]+h*K(t[i],t[j])*ys[j]
          end;
      sigma:=r*a(t[i])/(1-exp(-r*a(t[i])));
      ys[i+1]:=r/sigma*(-a(t[i])*ys[i]-ss[i]+f(t[i]))+ys[i];
      y[i+1]:=(1-r*a(t[i]))*y[i]+r*(f(t[i])-s[i]);
  end;

далее вывод ys[i+1] и y[i+1]

[Stilet]

А она у тебя вообще в классическом паскале запускается?
ИМХО эту программу вообще нет смысла во что-то переделывать, слишком много в ней ошибок.

[Mik92]

Паскаль это язык программирования, а дельфи это среда.. что тут переделывать если это и есть дельфи

[Stilet]

а дельфи это среда..

Делфи, это язык. Уже говорилось много раз. Подтверждение можешь найти в Википедии.