Умножение полиномов (где ошибки?)

[Neitrosha]

проблемы:
1. работает задание коэффициентов только в первом многочлене, второй не реагирует вообще, хотя коды вроде одинаковы, только менял переменные.
2. он как-то слишком странно выводит многочлен в эдит, иногда пропускается, например "*0x^00x^0", "-9x^0-2x^1*3x^23x^2-10x^3", т.е. вообще неверно задается
3. не уверен в том, что правильно написана процедура перемножения

unit Unit1;

interface

uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls;

type
TForm1 = class(TForm)
Button1: TButton;
Edit1: TEdit;
Button2: TButton;
Edit2: TEdit;
Button3: TButton;
Edit3: TEdit;
procedure Button1Click(Sender: TObject);
procedure Button2Click(Sender: TObject);
procedure Button3Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;

var
Form1: TForm1;
var
a,b,i,j,k: integer;
Ab:array[0..5,0..5] of integer;
s,t,r:string;
implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);

begin
randomize;
a:=random(5);
s:='';
for I:=0 to a-1 do
begin
randomize;
Ab[i,1]:=random(20)-10;
if Ab[i,1]>=0 then
s:=s+'*'+IntToStr(Ab[i,1])+'x^'+IntToStr(i);

s:=s+IntToStr(Ab[i,1])+'x^'+IntToStr(i);
end;
for j:=i+1 to 3 do
begin
Ab[j,1]:=0
end;
Edit1.Text:=s;

end;




procedure TForm1.Button2Click(Sender: TObject);
begin
randomize;
b:=random(5);
t:='';
for i:=0 to b-1 do
begin
randomize;
Ab[i,2]:=random(20)-10;
if Ab[i,2]>=0 then
t:=t+'*'+IntToStr(Ab[i,2])+'x^'+IntToStr(i);

t:=t+IntToStr(Ab[i,2])+'x^'+IntToStr(i);
end;
for j := i+1 to 3 do
begin
Ab[j,2]:=0
end;
Edit2.Text:=t;
end;


procedure TForm1.Button3Click(Sender: TObject);
begin
r:='';
begin
for i:=0 to 3 do
if Ab[i,1]=0 then Ab[i,k]:=Ab[i,2]
else if Ab[i,2]=0 then Ab[i,3]:=Ab[i,1]
else if (Ab[i,2]=0) and (Ab[i,1]=0) then Ab[i,3]:=0
else Ab[i,3]:= Ab[i,1]+Ab[i,1]*Ab[i,2];

if Ab[i,3]>0 then
r:=r+'*'+IntToStr(Ab[i,3])+'x^'+IntToStr(i)
else if Ab[i,3]<0 then
r:=r+IntToStr(Ab[i,3])+'x^'+IntToStr(i) ;
end;
Edit3.Text:=r;
end;
end.

[GetMax]

Как вариант можно сделать так

var
  Form1: TForm1;
  a,p: integer;
  s,t,r:string;
  Koef1,Koef2:Array[1..10] of Integer;
implementation

{$R *.dfm}

procedure TForm1.FormActivate(Sender: TObject);
begin
  Edit1.Clear;
  Edit2.Clear;
  Edit3.Clear
end;

procedure TForm1.Button1Click(Sender: TObject);
Var
  sp:String;
  i:Byte;
begin
  randomize;
  a:=1+random(3);
  s:='';
  for I:=1 to a do
  begin
    p:=random(20)-10;
    Koef1[i]:=p;
    Sp:='('+IntToStr(P)+'x^'+IntToStr(i)+')';
    S:=S+Sp+'+'
  End;
  Delete(S,Length(S),1);
  Edit1.Text:=s;
end;

procedure TForm1.Button2Click(Sender: TObject);
Var
  Sp:String;
  i:Byte;
begin
  randomize;
  t:='';
  for i:=1 to a do
  begin
    p:=random(20)-10;
    Koef2[i]:=p;
    Sp:='('+IntToStr(P)+'x^'+IntToStr(i)+')';
    t:=t+Sp+'+'
  end;
  Delete(t,Length(t),1);
  Edit2.Text:=t;
end;

procedure TForm1.Button3Click(Sender: TObject);
Var
  sp:String;
  i:Byte;
begin
  r:='';
  For i:=1 to a do
  Begin
    Sp:='('+IntToStr(Koef1[i]*Koef2[i])+'x^'+IntToStr(i)+')';
    r:=r+Sp+'+'
  End;
  Delete(R,Length(R),1);
  Edit3.Text:=R
end;

end.

[phomm]

Код оформляйте по правилам (расширенный режим редактирования, кнопочка #)
что вот это за ерунда ?

randomize;
a:=random(5);
s:='';
for I:=0 to a-1 do
begin
randomize;
Ab[i,1]:=random(20)-10;

рандомайз надо поставить в создание формы, т.е вызывать только 1 раз за всю работу программы.
брать рандомное число и использовать его для цикла занесения в массив, где индекс - это рандомной число - вообще какая-то ересь, непонятно, чего Вы хотите добиться.

Само рандомное число легко может быть 0 и взять цикл от 0 до 0-1 это тоже большой косяк

Не хочу даже копаться в Вашем коде по умножению и вводу-выводу, ибо надо делать самому форму и т.п. прикрепляйте сразу проект ! и поправьте то о чем я сказал, а также желательно исправить имена переменных на осмысленные, чтобы было читабельно, можете ещё комментов добавить