Pascal ABC. Работа с Функциями.

[Liinad]

Задание: Удалить средний символ рядка матрицы, если длинна рядка не четная. В другом случае оставить рядок без изменений.
Проблема: Программу не получилось закончить

Program pamPam;
uses crt;
type
    mr=array [1..10,1..10] of integer;
var
   M:mr;
   n:integer;
Function ydl(B:mr; M:integer) : integer;
        Var
           k,l:integer;
           sr:integer;// средний символ
        begin
             For k:=1 to M do
                For l:=1 to M do
                   begin
                        If M mod 2 = 1 then
                          delete(M,(M div 2) +1,1)
                   end;
        end;
Procedure VVOD(Var B:mr; Var M:intger);
         Var
            k,l:integer;
         begin
              writeln('Введите размерность матрицы');
              readln(M);
              For k:=1 to M do
                 For l:=1 to M do
                    B[k,l]:=Random(20)-10;
         end;
Procedure OOUT(Const B:mr; M:integer);
         Var
            k,l:integer;
         begin
              For k:=1 to M do
                 begin
                      For l:=1 to M do
                         write(B[k,l]:4);
                         writeln;
                 end;
         end;
Begin
     VVOD(B,M);
     OOUT(B,M);
end.

[Stilet]

Дай-ка угадаю: Для правильной работы нужно использовать динамические массивы?

[Liinad]

Вы правы, но я с такими массивами еще не работал, прочитал только что, хотелось бы что бы кто нибудь помог с задачей, и я увидел уже на примере, как это будет выглядеть, что бы лучше понять и разобраться.