Выполнить заданные операции над матрицей

program massiv;
const m=5;
      n=5;
      k=6;
var c:array[1..m,1..n] of integer;
var c1:array[1..m,1..k] of integer;
i,j,sum,pol:integer;
begin
for i:=1 to m do
for j:=1 to n do read (c[i,j]);
writeln('Матрица C');
for i:=1 to m do
begin
for j:=1 to n do write (c[i,j],' ');
writeln();
end;
writeln('Элементы главной диагонали');
for i:=1 to m do
begin
for j:=1 to n do if i=j then write (c[i,j],' ');
end;
end.

var
    ar: Array[1..6, 1..5] Of Integer;
    i, j, pos, x, y, n, m: Byte;
    sum: LongInt;
begin
    {1}
    n := 5;
    m := n;
    for i := 1 to n do
        for j := 1 to m do
            ReadLn(ar[i, j]);
    WriteLn('Матрица C:');
    for i := 1 to n do
    begin
        for j := 1 to m do
            Write(ar[i, j]:7);
        WriteLn;
    end;
    {2}
    sum := 0;
    pos := 0;
    Write('Элементы главной диагонали:');
    for i := 1 to m do
    begin
        Write(ar[i, i]:7);
        if (ar[i, i] > 0)
        then
            Inc(pos);
        Inc(sum, ar[i, i]);
    end;
    WriteLn;
    WriteLn('Положительных на главной диагонали: ', pos);
    WriteLn('Сумма элементов главной диагонали: ', sum);
    {3}
    WriteLn('Введите 5 элементов дополнительной строки:');
    Inc(n);
    for j := 1 to m do
        ReadLn(ar[n, j]);
    WriteLn('Матрица С1:');
    for i := 1 to n do
    begin
        for j := 1 to m do
            Write(ar[i, j]:7);
        WriteLn;
    end;
    {4}
    WriteLn('Введите индексы искомого элемента матрицы: ');
    ReadLn(x, y);
    if ((x in [1..n]) And (y in [1..m]))
    then
        WriteLn('C[', x, '][', y, ']=', ar[x, y])
    else
        WriteLn('Индексы заданы неверно!');
end.