Дана квадратная матрица и вектор. Проверить, равен ли вектор какому либо столбцу или строке матрицы - Pascal ABC

Формулировка задачи:

Дана квадратная матрица и вектор. Проверить, равен ли вектор какому либо столбцу или строке матрицы. Моя программа работает когда правильно а когда и нет. Наверное неправильно задано условие или цикл. Заранее спасибо.
Program massiv;
 Const
     p='      ';
 Var 
     n,k,i,j:Integer;
     mas: array [1..100,1..100] of integer;
     vektor: array [1..100] of integer;
Begin
  Writeln ('Введите размерность массива');
  Readln (n);
  Writeln (p);
  Writeln('Введите массив, размером ',n,' на ',n);
  for i:=1 to n do
     for j:=1 to n do
      Read(mas[i,j]);
              
 Writeln (p);
 Writeln ('Исходная матрица');
 Writeln (p);
  for i:=1 to n do
     Begin
        for j:=1 to n do 
            Write(mas[i,j]:2);
    Writeln
   end;
   
    Writeln (p);
  Writeln('Введите вектор из ',n,' элементов:');
  for k:=1 to n do
      Read(vektor[k]);
    Writeln (p);
    Write ('Вектор=');
    for k:=1 to n do 
        Write(Vektor[k]:2);
        
  Writeln;
     for i:=1 to n do
      if mas[i,j]=vektor[k] then
        Writeln ('Вектор содержится в ',i,' строке.')
         else
          Writeln ('Вектор не содержится в ',i,' строке');
     for j:=1 to n do
       if mas[i,j]=vektor[k] then
        Writeln ('Вектор содержится в ',j,' столбце.')
         else Writeln ('Вектор не содержится в ',j,' столбце');
  Readln;
End.
Добавлено через 2 часа 26 минут Неужели никто не поможет?

Код к задаче: «Дана квадратная матрица и вектор. Проверить, равен ли вектор какому либо столбцу или строке матрицы - Pascal ABC»

textual
uses crt;
const N = 10;
var arr:array[1..N,1..N] of integer;
    vec:array[1..N] of integer;
    i,j:integer;
    v1,v2:string;
begin
writeln('Матрица:');
for i:=1 to N do
 begin
  for j:=1 to N do
   begin
    arr[i,j]:=random(9)+1;
    write(arr[i,j],'  ');
   end;
 writeln();
 end;
Writeln('Введите вектор:');
for i:=1 to N do
read(vec[i]);
for i:=1 to N do
v1:=v1+inttostr(vec[i]);
for i:=1 to N do
 begin
  for j:=1 to N do
   begin
   v2:=v2+inttostr(arr[i,j])
   end;
  if v1=v2 then writeln('Вектор содержится в  ',i,' строке')
  else  writeln('Вектор содержится в  ',i,' строке');
  v2:='';
 end;
for j:=1 to N do
 begin
  for i:=1 to N do
   begin
   v2:=v2+inttostr(arr[i,j])
   end;
  if v1=v2 then writeln('Вектор содержится в ',j,' столбце')
  else  writeln('Вектор содержится в ',j,' столбце');
  v2:='';
 end;
end.

15   голосов, оценка 4.000 из 5


СОХРАНИТЬ ССЫЛКУ