умоляю! Скоро сдавать. Информатика

У меня работа с одним массивом.
Паскаль.
---
uses crt;
const N=4;
        M=6;
var a: array [1..n,1..m] of integer;
    x,y,k,p: integer;
begin
     for x:=1 to n do begin
         for y:=1 to m do begin
             a[x,y]:=random(21)-10;
             write(a[x,y]:4);
         end;
         writeln;
     end;
     write('k='); readln(k);
     if k<=m then p:=m-1 else p:=m;
     for y:=k+1 to m do
          for x:=1 to n do
             a[x,y-1]:=a[x,y];
     for x:=1 to n do begin
         for y:=1 to p do
             write(a[x,y]:4);
         writeln;
     end;
end.

◘Объективность информации. Например: "На улице холодно" - это субъективная информация. А "На улице -14°" - объективная (но не всегда точная)
◘Достоверность информации. Ин-фа достоверна, если отражает истинное положение дел. (объективная информация всегда достоверна)
◘Полнота информации. Информация полная, если ее достаточно для понимания и принятия решения.
◘Точность информации. Определяется степенью ее близости к реальному состоянию объекта, процесса, явления и т.д.
◘Актуальность информации – важность для настоящего времени.
◘Полезность информации.
 - Самая ценная информация – объективная, достоверная, полная, и актуальная.