разработка программы в паскаль

[impirator]

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

program a1;
uses crt;
var
c: char;
a,b,s: array [1..20,1..20] of integer;
m,n,i,j: integer;
begin
clrscr;
write('vvedite razmernost matrici (m n):');
readln(m,n);
write('sozdat matricu proizvolno? Y/N:');
readln(c);
if (c='Y') or (c='y') then
begin
randomize;
writeln('sozdanie matric...');
for i:=1 to n do
begin
writeln;
for j:=1 to m do
begin
a[i,j]:=random(30)+10;
write(a[i,j],'');
end;
end;
writeln;
for i:=1 to n do
begin
writeln;
for j:=1 to m do
begin
b[i,j]:=random(30)+10;
write(b[i,j],'');
end;
end;
end
else if (c='N') or (c='n') then
begin
writeln('vvedite matrici vruchnuu:');
writeln('Pervaya (postrochno):');
for i:=1 to n do
for j:=1 to m do
read(a[i,j]);
writeln;
writeln('Vtoraya (postrochno):');
for i:=1 to n do
for j:=1 to m do
read(b[i,j]);
end
else writeln('Oshibka vvoda');
if(c='N') or (c='n') or (c='Y') or (c='y') then
begin
writeln;
writeln;
writeln('Summa:');
for i:=1 to n do
begin
writeln;
for j:=1 to m do
begin
s[i,j]:=a[i,j]+b[i,j];
write(s[i,j],'');
end;
end;
end;
readkey;

end.

[Alex11223]

Как помочь-то? Под помощью подразумевается, что вы пытаетесь сделать что-то сами, показываете код, рассказываете, что не получается и т.д.