В массиве A (3,4) элементом последней строки присвоить значения O(стереть), и найти сумму элементов первой строки.

Program Zn; uses CRT; type mas=array [1..20, 1..20] of real; var A:mas; i,j,g,b,n,m,o:integer;   l:real; Begin      clrscr;      write ('Введите диапазон массива: ');      readln (g,b);      write ('Введите размер массива: ');      readln (n,m);      Randomize;      For i:=1 to n do          Begin           For j:=1 to m do              Begin                   A[i,j]:=random(b-g)+g;                   write (A[i,j]:5:0, '  ');              End;              writeln;          End;      O:=0;      For i:=1 to n do        Begin          For j:=1 to m do              Begin                   A[3,j]:=O;              End;        End;      For i:=1 to n do          Begin            For j:=1 to m do               If i=1 then                Begin                     L:=l+A[i,j];                End;          End;      writeln ('Новый массив');      For i:=1 to n do         Begin          For j:=1 to m do              Begin                   write (A[i,j]:5:0, '  ');              End;              writeln         End;         writeln ('Сумма элементов первой строки= ',l:5:0); readln; End.  Вообщем вот.