Написание программы по блок-схеме

Составил программу в Pascal ABC по блок-схеме. Создал файл ввода и вывода. Программа рабочая, но в файле вывода выдает те же цифры, которые вводятся в файле DAT. Подскажите в чем проблема? Заранее благодарю)

program diplom;
var f1,f2:text;
t_k0,t_g0,t_kk,w_0f,d,p_u,H_z,dH,dt,t_kj ,t_kn,t,t_ g,dt_g,c_k,c_g,k_v,dt_k,H:real;
i,j,k,it,n:integer;
begin
assign(f1,'diplom.dat');
assign(f2,'diplom_1.res');
reset(f1);
rewrite(f2);
readln(f1,t_k0,t_g0,t_kk,w_0f,d,p_u,H_z, dH,dt);
n:=round(H_z/dH);
for j:=1 to n do
begin
t_kj:=t_k0;
end;
i:=0;
repeat
i:=i+1;
t:=dt*i;
t_g:=t_g0;
dt_g:=0;
writeln(f2,'t=',t:5:2);
for j:=1 to n do
begin
c_k:=0.59+(3.43*1e-3)*t_kj-(2.57*1e-6)*sqr(t_kj)+(8.18*1e-10)*exp(ln(t_kj)*3);
c_g:=1.312+(2.93*1e-4)*t_g;
end;
for k:=1 to it do
begin
k_v:=0.025*exp(ln(w_0f)*0.9)*exp(ln(t_g+ 0.5*dt_g+2 73)*0.3)/exp(ln(d)*0.75);
dt_k:=k_v*(t_kj-t_g-0.5*dt_g)*dt/(p_u*c_k+0.5*k_v*dt);
dt_g:=k_v*(t_kj-t_g-0.5*dt_k)*dH/(w_0f*c_g+0.5*k_v*dH);
end;
t_kj:=t_kj-dt_k;
t_g:=t_g+dt_g;
H:=dH*j;
writeln(f2,'H= ' ,H:6:5,'t_kj= ' ,t_kj:6:5, 't_g= ', t_g:6:5);
until t_kn<=t_kk;
close(f1);
close(f2);
end.

Миниатюры