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

[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]) ........ ;

[Артемий]

Может так?

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.