Первая задача на турбо паскале

uses crt;
Const n=9;
var c:array[1..n] of integer;
i,m,posm:integer;
Begin clrscr; randomize;
writeln('Default massive');
for i:=1 to n do begin
c[i]:=random(100-1)+1;
write(c[i], ' ');
end;
writeln;

m:=c[1];
for i:=2 to n do
if c[i]

2-я задача

uses crt;
const n=5;
var b:array[1..n,1..n] of integer;
i,j,count:integer;
Begin clrscr; randomize;
writeln('Default matrix:');
for i:=1 to n do begin
for j:=1 to n do begin
b[i,j]:=random(10-1)+1;
write(b[i,j]:3);
end;
writeln'
end;

for i:=1 to n do
if b[i,i]>5 then inc(count);

writeln('Count=', count);
readln;
End.