Дана Матрица А(m,n) дополнить ее...

uses crt;
var a:array[1..200,1..200] of real;
    i,j,n,m:integer;
        k:real;
begin
clrscr;
    writeln('Vvedite razmernost matrici n,m ');
    readln(n,m);
    {Если нужно случайное заполнение массива--------}
    randomize;
    for i:=1 to n do
        for j:=1 to m do
                     begin
            a[i,j]:=random(50);
                        a[i,m+1]:=a[i,m+1]+a[i,j];
                        a[i+1,j]:=a[i+1,j]+a[i,j];
                      end;
    {----------------------------------------------}
    
    {Если нужен ввод с клавиатуры------------------}
    for i:=1 to n do
        for j:=1 to m do
            begin
                write('a[',i,',',j,']= ');
                readln(a[i,j]);
 
                        a[i,m+1]:=a[i,m+1]+a[i,j];
                        a[i+1,j]:=a[i+1,j]+a[i,j];
            end;
    {---------------------------------------------}
 
 
for i:=1 to n+1 do
    begin
        for j:=1 to m+! do
            write(a[i,j]:3:0);
        writeln;
    end;
readln;
 
 
end.