Matematické Fórum

Ahoj potreboval bych pomoc s timto prikladem:
Program si vyzada pres konzoli vlozeni prvku ctvercove matice 4x4 celych kladnych cisel. Ziskanou matici vypise na konzoli a vytvori z ni jinou matici o stejne velikosti, ktera na kazde pozici bude obsahovat soucet vsech sousednich ptvku matice vychozi. Takto ziskanou matici program take vypise na konzovli. V nove matici program najde nejvetsi prvek a vyse na konzoli, cislo sloupce a radku, kde se v matici prvek nachazí..

program Project2;

{$APPTYPE CONSOLE}

uses
  SysUtils;

const
M=4;
N=4;
var
maticeA, maticeB : array [1..M, 1..N] of integer;
i, j : integer;

begin
write ('Zadej jednotlive prvky matice: ');
for i:= 1 to M do
for j := 1 to N do
begin
write ('Zadej prvek ', i, ', ', j);
readln (maticeA[i,j]);
end;
for i:= 1 to M do
for j := 1 to N do

writeln ('Puvodni matice:');
for i:= 1 to M do
begin
for j := 1 to N do

write (maticeA[i,j], ' ');
writeln;
end;
readln;


bohutzel ale nevim jak mam udelat soucet okolnich prvku