Как написать программу на Паскале?

{ Ñîñòàâüòå ïðîãðàììó âû÷èñëåíèÿ ñóììû ýëåìåíòîâ
ïî ñòðîêàì ìàòðèöû Ñ(N, N). }
program mas3;
uses crt;
var n,i,j:integer;
c:array[1..100,1..100] of integer;
s:array[1..100] of integer;
begin
clrscr;
randomize;
writeln('massiv');
writeln('-----------');
write('Ââåñòè ðàçìåð ìàññèâà N -->'); readln(n);
writeln('Ìàòðèöà ');
for i:=1 to n do begin
for j:=1 to n do begin
c[i,j]:=random(50);
write(c[i,j]:3);
end;
writeln; end;
for i:=1 to n do begin
s:=0;
for j:=1 to n do
s:=s+c[i,j];
end;
writeln('ñóììà ýëåìåíòîâ ïî ñòðîêàì');
for i:=1 to n do
write(s:4);
writeln;
writeln('êîíåö çàäà÷è');
readkey;
end.