WSKAŹNIKI DO ZMIENNYCH DYNAMICZNYCH:

program dodtablice;
uses crt;
const N=3; M=3;
type
Wektor=array[1..N,1..M] of Real;
WWektor=^Wektor;
var
Wtab1,Wtab2,Wsuma:WWektor;
i:1..N;
j:1..M;
begin
clrscr;
writeln ('PROGRAM SUMUJACY ELEMENTY DWOCH TABLIC DWUWYMIAROWYCH');
writeln;
writeln ('Wprowadz elementy pierwszej tablicy: ');
new(Wtab1);
for i:=1 to N do
for j:=1 to M do
begin
write('element[',i,'][',j,']=');
readln (Wtab1^[i][j]);
end;
begin
 writeln;
 writeln ('Wprowadz elementy drugiej tablicy :');
 new(Wtab2);
  for i:=1 to N do
   for j:=1 to M do
    begin
     Write('element[',i,'][',j,']=');
     readln (Wtab2^[i][j]);
    end;

begin
 new(Wsuma);
  for i:=1 to N do
   for j:=1 to M do
    Wsuma^[i][j]:=Wtab1^[i][j]+Wtab2^[i][j];
    dispose (Wtab1);
    dispose (Wtab2);
     for i:=1 to N do
      for j:=1 to M do
        writeln ('Suma elementow dwoch tablic wynosi: ',Wsuma^[i][j]:6:2);
        readln ;
    end;
   end;
end.