Многочлены, Помогите с функцией Опции

[Jimmy]

Пожалуйста помогите написать функцию, которая осуществляет форматный ввод\вывод многочленов, те например пользователь вводит многочлен: 3*x^2+4*x^7 а функция создает два динамических массива со степенями и с коэффициентами, 3 4 и 2 7 соответственно. Также и в обратную сторону. Заранее благодарен.

[Jimmy]

вернее процедурой, пробовал написать, идея такая на вход поступает строка, процедура ее считыват и подстроки с числами переводит в число и записывает в массив... паскаль при выполнении вылетает

Код

program formvvod;
const n=20;
type tmas=array[1..n] of real;
procedure readp(s:string; var a:tmas);
const lim=['*','+','x','^'];
var i,j,k,fk,code:integer; v:real; m:string; fl:boolean;
begin
k:=length(s);
m:='';
j:=1;
           for i:=1 to k do begin
               while not(s[i] in lim) and (i<=k) do begin
                     m:=m+s[i];
                     inc(i);
                     end;
                     val(m,v,code);
                     a[j]:=v;
                     inc(j); m:='';
                     end;
end;
var ss:string;
    ob:tmas;
    i:integer;
begin
     writeln('Vvedi mnogochlen ');
     readln(ss);
     readp(ss,ob);
     writeln('Vid');
     writeln;
     for i:=1 to n do
     write(ob[i]);
     readln;
end.

помогите пожалуйста, буду очень благодарен, можно даже со статикой)