Сделайте третье задание. Чертежник

Program asd;
Var A,C:array[1..2500] of integer;
i,n,s,ii:integer;
 sr:real;
BEGIN
Write('Введите n: '); Readln(n);
Writeln('Массив: ');
 For i:=1 to n do
  begin
  A[i]:=1+Random(9); 
 Write(A[i]:2); 
  end;  
 Writeln; 
 Writeln('Все элементы, которые меньше последнего числа в ряду: ');
For i:=1 to n do  
begin
 if A[i]<A[n] then Write(A[i]:2); 
end; 
Writeln;
 Writeln('Среднее арифметическое элементов массива: '); 
 For i:=1 to n do 
 begin 
 s:=s+A[i]; 
 sr:=s/i; 
end; 
Writeln(sr:2:2);  
   Writeln('Номер элементов, которые от 3 до 7.: ');  
  For i:=1 to n do 
 begin 
 If  (A[i]>=3) and (A[i]<=7)   
 then
  begin 
  C[i]:=i; 
 Write(C[i],' '); 
 end;   
 end;  
END.

Program asd;
Var A,B:array [1..250,1..250] of integer;
    i,j,n,m,k: integer;
BEGIN
 Write('Введите n: '); Readln(n); 
 Write('Введите m: '); Readln(m); 
for i:= 1 to n do 
 begin 
  for j:= 1 to m do   
 begin   
  A[i,j]:=random(10);   
  write(A[i,j]:3); 
  end; 
  writeln;
  end;
writeln;
for i:= 1 to n do 
    for j:= 1 to m do 
  begin   
 If  A[i,j] mod 2=1 then inc(k); 
   end;    
      If n=m then 
   begin     
Writeln('Транспонирование: ');   
  for i:=1 to n do
  begin 
  for j:=1 to m do   
 begin   
  write(A[j,i]:3);   
  B[i,j]:=A[i,j];   
 end; 
 writeln; 
 end; writeln; 
    end   
  else
Writeln('Кол-во нечетных элементов: ',k);
END.