Прога Таблица по закону Опции

[KuTa]

Вот такая вот программа

{Nazvanie progi}
Program Function_F(x,t);
{Podluchaem biblioteku}
uses crt;
{Ob`yavlyaem peremennie}
Var x,t:integer;
{Poehali}
begin
{Chistim ekran}
clrscr;
{Delaem verhnuy chast` tablici}
writeln('x/t   1     2     3    4     5     6     7     8     9     10');
{cikl po x}
for x:=1 to 10 do
begin
{delaem bokovuy chast` tablici}
  write(x);
{cikl po t}
for t:=1 to 10 do
{vivodim krasivo znacheniya proizvol'nogo zakona x/t=x*t*t}
if (t=1)and(x=10) then write(x*t*t:5) else  write(x*t*t:6);
writeln;
end;
{press any key}
Readln;
{stop}
End.

А теперь преподаватель попросил сделать следующее,чтоб таблица считалась не по закону

x*t*t:5

а по следующему закону:

dfi2(t,x)=(fi(t-1,x+1)-2.0*fi(t-1,x)+fi(t-1,x-1))/(dx*dx)

и написал мне изменения в программе такие вот и сказал причесать её,попогите плз. Вот прога которая измененная. С новым законом,что удалить из старой надо?

{Nazvanie progi}
Program Function_F(x,t);
{Podluchaem biblioteku}
uses crt;
{Ob`yavlyaem peremennie}
Var x,t:integer;
    fi(0:10, 0:10):real;
    dfi2(0:10, 0:10) :real;
    dx:real;
{Poehali}
begin
{Chistim ekran}
clrscr;
{Delaem verhnuy chast` tablici}
writeln('x/t   1     2     3    4     5     6     7     8     9     10');
{cikl po x}
for x:=0 to 10 do
       fi(0, x)=0.0
end;
dx=0.1;
for x:=1 to 10 do
begin
{delaem bokovuy chast` tablici}
  write(x);
{cikl po t}
for t:=1 to 10 do
for x:=1 to 9 do
    dfi2(t,x)=(fi(t-1,x+1)-2.0*fi(t-1,x)+fi(t-1,x-1))/(dx*dx)
end;
{vivodim krasivo znacheniya proizvol'nogo zakona x/t=x*t*t}
if (t=1)and(x=10) then write(x*t*t:5) else  write(x*t*t:6);
writeln;
end;
{press any key}
Readln;
{stop}
End.