Заполнить одномерный массив из двумерного согласно правилу

program Test6prog;
{$APPTYPE CONSOLE}
var
i,updeccount,upcount,file1count,dectmp,counter,allcounter,size,diagtmp:byte;
A:array [1..1000,1..1000] of longword;
Afile1:array [1..1000] of longword;
begin
write('Введите размер:');
read(size);
if size <> 2
then begin
allcounter:=size-1;
diagtmp:=1;
file1count:=1;
upcount:=1;
updeccount:=size;
{diagonal counter}
 for i:=1 to (size div 3) do
 for counter:=1 to allcounter do
 begin
 Afile1[file1count]:=A[counter,counter+diagtmp];
 inc(file1count);
 end;
 dec(allcounter);
 inc(diagtmp);
 for counter:=allcounter to upcount do
 begin
 Afile1[file1count]:=A[counter,updeccount];
 inc(file1count);
 end;
 dec(updeccount);
 dec(upcount,allcounter);
 for counter:=upcount to diagtmp+1 do
 begin;
 Afile1[file1count]:=A[diagtmp-1,counter];
 inc(file1count);
 end;
 dec(allcounter);
end;
 for i:=1 to file1count do
   write(Afile1[i]:3);
   readln;
   readln;
end.