Формирование вектора из матрицы

[LittleStudent]

Доброе время суток уважаемые.
Прошу помочь. Подскажите пожалуйста, почему программа не работает?.
Условие:

Ввести массив символов.
Сформировать вектор из строк матрицы,
в которых нет ниодного знака препинания.

Вот что у меня получилось:

Program Matrix;
  Const
    Z:Set of Char=['.',',','!',':',';','?'];
    Dim=10;
  Type
    TypeMatrix=array[1..Dim,1..Dim] of integer;
    Vector=array[1..Dim] of integer;
  Var
    M:TypeMatrix;
    i,j,line,k,Column:Byte;
  Begin
    Writeln('задайте кол-во строк и столбцов матрицы');
    Write('(*не более чем',Dim,'x',Dim,')');
    Readln(line,Column);
    Writeln('Введите матрицу  ',line, ' на ',Column);
    For i:=1 to line do
      For j:=1 to Column do
        Read(M[i,j]);
    For i:=1 to line do
      For j:=1 to Column do
        If M[i,j]<>Z
          then
            begin
              inc(k);
              V[k]:=M[i,j]
            end;
   For i:=1 to k do
     begin
       V[i]:=V[k];
       Write('Наш вектор: ');
       Write(V[i]);
     end;
  end.

[KobolD]

Мне кажется чо вот тут не верно If M[i,j]<>Z ты вектор с символом сравниваешь -всегда false будет, я думаю надо посимвольно сравнивать.
И составление вектора ответа у тебя не правильно сделано в принципе, тебе надо проверять строку матрицы и если нет знака припинания то целиком ее загонять в вектор, а у тебя как то посимвольно сделанно.
Код я тебе не напишу так как в паскале не работаю, если надо могу на C#.

[GetMax]

Ввести массив символов.
Сформировать вектор из строк матрицы,
в которых нет ниодного знака препинания.

TypeMatrix=array[1..Dim,1..Dim] of integer;

О каких символах и знаках препинания может идти речь, если описана целочисленная матрица?!
Тогда уж

TypeMatrix=array[1..Dim,1..Dim] of char

[LittleStudent]

Я в этом ваще не бум-бум help please!!!