[S0S]

помогите запусть написаную на паскале прожку в делфи

Код:

var i,N : integer;
    l,a,k,m,ti,dt,T,dV : real;
    x : array[1..200] of real;
    v : array[1..200] of real;
begin
   N:=100;
   T:=10;
   dt:=10e-13;
   l:=2e-10;
   k:=0.1;
   m:=1e-25;
   dV:=1;
  for i:=1 to N do
    begin
      x[i]:=i*l;
      v[i]:=0;
    end;
 for i:=1 to N do
  begin
    write ('Координата елементу ланцюжка* x[',i);
    write (']  ');
    writeln (x[i]);
    write ('Швидкість елементу ланцюжка* V[',i);
    write (']  ');
    writeln (V[i]);
   end;
    readln;
    ti:=0;
  while dt<T do
    begin
    dt:=dt+dt;
    x[1]:=dV*dt;
    writeln (dt);
    writeln (x[1]);
    for i:=2 to N-1 do
      begin
       writeln (x[i+1]);
       writeln (x[i]);
       writeln (x[i-1]);
       readln;
       a:=((x[i+1]-2*x[i]+x[i-1])*k)/m;
       writeln (a);
       readln;
       x[i]:=x[i]+v[i]*dt+a*sqr(dt);
       writeln (x[i]);
       readln;
       v[i]:=v[i]+a*dt;
       writeln (v[i]);
       readln;
       end;
    end;
 for i:=1 to N do
  begin
    write ('Координата елементу ланцюжка* x[',i);
    write (']  ');
    writeln (x[i]);
    write ('Швидкість елементу ланцюжка* V[',i);
    write (']  ');
    writeln (V[i]);
   end;
     readln;
end.