ЗАДАЧА: Дана матрица A(N,M). Получите вектор X(M) равный Р-той строке матрицы и вектор Y(N) равный Q-тому столбцу матрицы.
ОШИБКИ И ВОПРОСЫ:задача по сути не сложная,наверно,но чево-то как-то на нее никак мозг не собирается,мне не нравится строчка for i:=p do но я не знаю чем ее заменить,еще не знаю как бы мне сделать вывод.

КОСЯЧНЫЙ ВАРИАНТ:

Program stem;
VAR
A: array [1..20,1..20] of integer;
X,Y:array [1..20]  of integer;
i,j,n,m,p,q : integer;
Begin
Readln (n,m);
for i:=1 to n do
  For j:=1 to m do
readln (A[i,j]);
readln (p,q);
for i:=p do
 begin
  for j:=1 to m do
   Writeln (A[i,j]) ........ ;

Может так?

Program stem;
uses crt;
VAR
A: array [1..20,1..20] of integer;
X,Y:array [1..20] of integer;
i,j,n,m,p,q : integer;
Begin
ClrScr;
Readln (n,m);
writeln;
for i:=1 to n do begin
  For j:=1 to m do begin
read(A[i,j]);
end;
writeln;
end;
writeln;
readln (p,q);
for m:=1 to 20 do begin
 X[m]:=a[p,m];
end;
for n:=1 to 20 do begin
 y[n]:=a[n,q];
end;
readln
end.

ой,неработает,я расставила везде где нужно врайтэленки чтоб не путаться,а оно не работает,я не понимаю почему((((((((((

Чего ж не работает... Все работает... Только чуть-чуть поправить надо, а то лишние элементы печатаются:

uses crt;
var
  A: array [1..20,1..20] of integer;
  X,Y:array [1..20] of integer;
  i,j,n,m,p,q : integer;

Begin
  ClrScr;
  Readln (n,m); { <--- N строк, M столбцов }
  writeln;

  for i:=1 to n do begin
    For j:=1 to m do begin
      a[i, j] := random(40);
      write(a[i, j]:4)
    end;
    writeln;
  end;

  writeln;
  readln (p,q); { <--- строка № p, столбец № q}
  for i:=1 to m do begin
    X[i]:=a[p,i];
    write(X[i]:4);
  end;
  writeln;

  for i:=1 to n do begin
    y[i]:=a[i,q];
    write(Y[i]:4);
  end;
  writeln;

  readln
end.

Спасибо госпада эксперты))))вы мне очень помогли)))