задача паскаль

[Gaml]

пусть дано натурально число n.Найдите наименьшее из чисел ...
k^3*sin(n+k/n) ,k=1,2...n

вот как представляю себе это я, правильно ли?

program name;
uses crt;
var
t,k,min:real;
n:integer;
begin
clrscr;
t:=0,min:=0;
readln(n);
for k:=1 to n do
t:=(k*k*k)*sin(n+k/n);
t:=min;
if t<min then begin writeln('наименьшее',min);end;end;end.

[kventin_zhuk]

program name;
uses crt;
var
t,k,min:real;
n:integer;
begin
clrscr;
t:=0,min:=0;
readln(n);
for k:=1 to n do // переменная в цикле должна быть integer
t:=(k*k*k)*sin(n+k/n);
t:=min;//  зачем присваивать t:= min ?   т.е t = 0? нужно min := t. Да и присваивать это нужно в цикле с проверкой условия(меньше ли)
if t<min then begin writeln('наименьшее',min);end;end;end.

вот так будет правильнее.

t:=0,min:=0;
min:=(k*k*k)*sin(n+k/n)
readln(n);
for k:=1 to n do
begin
  t:=(k*k*k)*sin(n+k/n);
  if t < min then
     min := t;
end;
writeln('min = ',min);

[Gaml]

спасибо большое ,разобрался)