Сформировать вектор

uses crt;
type
mas=array[1..20] of integer;{тип вектора}
matr=array[1..20,1..20] of integer;{тип матрицы}
procedure Vector(mt:matr;x,y:byte;var v:mas);{процедура создания вектора}
var i,j:byte;
begin
for j:=1 to y do{идем по столбцам}
for i:=1 to x do{потом в каждом столбце вниз по строкам}
if mt[i,j]<0 then{нашли первый отрицательный}
 begin
  v[j]:=mt[i,j];{запишем в вектор под номером столбца}
  break;{дальше не ищем}
 end;
end;
var a:matr;
    w:mas;
    n,m,i,j:byte;
begin
clrscr;
randomize;
write('Kol strok n=');readln(n);
write('Kol stolbcov m=');readln(m);
writeln('Matrica:');
for i:=1 to n do
 begin
  for j:=1 to m do
   begin
    a[i,j]:=random(10)-4;
    write(a[i,j]:4);
   end;
  writeln;
 end;
Vector(a,n,m,w);{вызываем процедуру создания вектора}
writeln('Vector:');
for i:=1 to m do
write(w[i],' ');{выводим вектор на экран}
readln
end

uses crt;
function Pow(x,y:integer):integer;{функция возведения числа в натуральную степень}
var k,i:integer;
begin
k:=1;
for i:=1 to y do
k:=k*x;{умножаем число на себя у раз}
Pow:=k;
end;
var a,b,p:integer;
begin
clrscr;
write('Vvedite a=');readln(a);
repeat
write('Vvedite b<a b=');readln(b);
until b<a;
p:=1;
while Pow(b,p)<=a do{пока b^p не превысило а, возводим в следующую степень}
p:=p+1;
write('Max spep=',p-1);{один шаг получается лишний, убавляем}
readln
end.