Delphi заготовки

{
заполнить прямоугольный целочисленный массив следующим
    образом по периметру массива стоят единицы, в центре-нули
}
uses crt;
const n=4;

var
   a: array [1..n,1..n] of integer;


   procedure Zpmassiv;
   var x,y:integer;
   begin
   for X:=2 to n-1 do
     for y:=2 to n-1 do
      a[x,y]:=0; {заносим нули в массив }
  {заполняем контур}
      for X:=1 to n do begin
      a[x,1]:=1;
      a[1,x]:=1;
      a[x,n]:=1;
      a[n,x]:=1;
      end;
      
      
   end;
{выводим массив }
Procedure ShowMassiv;
var x,y:integer;
begin
for y:=1 to n do begin
 writeln ... Читать дальше »