целочисленная матрица

uses crt;
var
a:array[1..100,1..100]of integer;
i,j,n,m,p,q:integer;
x,y:array[1..100]of integer;
begin clrscr;
write('n=');
read(n);
write('m=');
read(m);
for i:=1 to n do
for j:=1 to m do
a[i,j]:=random(20);
for i:=1 to n do
 begin
  for j:=1 to m do
  write(a[i,j],'  ');
  writeln;
 end;
writeln;
write('p='); read(p);
for i:=1 to n do
for j:=1 to m do
if i=p then
 begin
   x[i]:=a[p,j];
   write(x[i],'  ');
 end;
writeln;
write('q='); read(q);
for i:=1 to n do
for j:=1 to m do
if j=q then
 begin
  y[j]:=a[i,q];
  write(y[j],'  ');
 end;
readkey;
end.

uses crt;
const
n=3;
c:array[1..n] of integer=(1,-1,3);
var a,b,i:integer;
    z:real;
begin
clrscr;
a:=0;
b:=5;
for i:=1 to n do
 begin
  z:=(a+b+c[i])/i;
  write(z:4:1);
  a:=a+1;
  b:=b+1;
 end;
readln
end.

uses crt;
const nmax=20;
var a:array[1..nmax,1..nmax] of integer;
    b:array[1..nmax] of integer;
    n,m,i,j,k,p,q:byte;
    sm:integer;
begin
clrscr;
repeat
write('Размер матрицы=');
readln(n);
until n in [1..nmax];
writeln('Введите ',n*n,' элементов матрицы:');
for i:=1 to n do
for j:=1 to n do
 begin
  write('a[',i,',',j,']=');
  readln(a[i,j]);
 end;
clrscr;
writeln('Исходная матрица:');
for i:=1 to n do
 begin
   for j:=1 to n do
   write(a[i,j]:4);
   writeln;
 end;
writeln;
repeat
write('Введите число первых положительных в строке матрицы К=');
readln(k);
until k>0;
if k>n then
 begin
  write('K>N работа программы завершена!');
  readln;
  exit;
 end;
m:=0;
for i:=1 to n do
 begin
  p:=0;
  j:=1;
  while a[i,j]>0 do
   begin
    p:=p+1;
    j:=j+1;
   end;
  if p>=k then
   begin
    sm:=0;
    m:=m+1;
    for q:=1 to n do
    sm:=sm+a[i,q];
    b[m]:=sm;
   end;
 end;
if m=0 then writeln('Таких строк нет!')
else  for i:=1 to m do write(b[i],' ');
readln
end.