Wykres wielomianów...

Witam!
Wiem, ze do tej pory ukazało się wiele tematów, czy artykułów na stronie, dotyczących wykresu funkcji. Jednak większość była o rysowaniu funkcji trygonometrycznych, liniowych, no może znalazł się jeden o kwadratowej. Ponieważ uporałem się już z wykresem funkcji kwadratowej, wielomiany nie powinny były wydawać się czymś trudnym. Wystarczyło zamiast "sztywnego wzoru" kazać podać stopień funkcji i wartość jej współczynników. Jako że liczba tych ostatnich jest w tym wypadku nieokreślona, nie znalazłem innego rozwiązania, jak zapisywać je do tabeli i z niej odczytywać ich wartości w późniejszych fazach programu. I tu pojawił się problem, bo program jakoś nie chce tego zrobić, choć skutkowało to, np. w sortowaniu bąbelkowym. Przypisuje on współczynnikom wartość 0 albo w ogóle ich nie czyta. Czy ktoś mógłby mi pomóc odnaleźć w tym błąd? Ponieżej zmaieszczam kod.

const
  OffX = 200;
  OffY = 200;
var
t: array[1..255] of real;
kod,n,i,j,x,y: Integer;
f: real;
s: double;
str1: string;

begin
str1:=inputbox('Tworzenie funkcji','Podaj stopień funkcji','');
Val(str1,n,kod);

x:=-100;
f:=0;

  for i:=1 to n+1 do
  begin
  if i = n+1 then
    begin
    str1:=inputbox('Tworzenie funkcji','Poda wyraz wolny funkcji','');
    Val(str1,t[i],kod);
    end
  else
    begin
    str1:=inputbox('Tworzenie funkcji','Podaj wartosc '+floattostr(i)+' wspolczynnika funkcji','');
    Val(str1,t[i],kod);
    end;
  s:=Power(x,n+1-i);
  f:=f+s*t[i];
  end;

y:=trunc(f);

Canvas.MoveTo(OffX+x, OffY-y);
  for j := 0 to Form1.Width do
  begin
    Inc(x);
      for i:=1 to n+1 do
  begin
  s:=Power(x,n+1-i);
  f:=f+s*t[i];
  end;
    y := Trunc(f);
    Canvas.LineTo(OffX+x, OffY-y);
  end;
end;

PS. W KS-Ekspert był program kalkulatora graficznego. Może mógłby mi ktoś go podesłać?