Матрица + вывод. Опции

[spektr]

ЗАДАЧА: Дана матрица 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]) ........ ;