Суперпозиция многочленов Опции

[Camel_Toe]

короче, задача такая. Даны два многочлена f(x) и g(x). Требуется найти их суперпозицию, то есть f(g(x)). Данные о каждом многочлене представлены в соотв.файлах в формате: коээфициент, степень. Если у кого есть какие мысли как это можно реализовать на паскале, просьба поделиться со мной, а то у меня лично никаких идей нет.

[zx1024]

Чтение мн-нов из файла.

type 
  TMnog : array [0..100] of real;
var f, g : TMnog;
...
procedure Read_from_file (file_name : string; var Mnog : TMnog);
var file_p : text;
  s : string;
  Er : integer;
  i : integer;
  k : real;
begin
  for i := 0 to 100 do
    Mnog[i] := 0;
  assign (file_p, file_name);
  reset (file_p);
  repeat
    readln (file_p, s);
    val (s, i, Er);
    readln (file_p, s);
    val (s, k, Er);
    Mnog[i] := Mnog[i] + k;
  until eof(file_p);
  close (file_p)
end;

В программе соотв-но

...
read_from_file ('f.txt', f);
read_from_file ('g.txt', g);
...

Без проверки ошибок.
Дела улажу и напишу всё остальное.