Вывод одномерного массива на экран

program Task6;
 
Const MaxN = 100;
 
var c, d, n, m, num, val: integer;
A: array[1..MaxN, 1..MaxN] of integer;
result: array[1..MaxN] of integer;
 
 
begin
 
Write('Enter N: ');
ReadLn(n);
Write('Enter M: ');
ReadLn(m);
 
 
for c:=1 to n do
  for d:=1 to m do
  begin
    Write('Enter A[', c, ', ', d, '] : ');
    ReadLn(A[c,d]);
  end;
 
for d:=1 to m do { Џа®ЎҐЈ*Ґ¬бп Ї® бв®«Ўж*¬ }
begin
  num := 1; { ЃҐаҐ¬ ЇҐаўго бва®зЄг ў бв®«ЎжҐ }
  val := a[1, d]; { Ё ЇҐаў®Ґ §**зҐ*ЁҐ }
  for б:=2 to n do
    if (a[c,d] > val) then { Ґб«Ё ў б«Ґ¤го饩 бва®зЄҐ §**зҐ*ЁҐ Ў®«миҐ }
    begin
      num := d; { б®еа**塞 *®ўл© *®¬Ґа бва®зЄЁ }
      val := a[c,d]; { Ё §**зҐ*ЁҐ }
    end;
  result[d] := num; { ‘®еа**塞 *®¬Ґа бва®зЄЁ б ¬*Єб. §**зҐ*ЁҐ¬ }
end;
 
WriteLn('Result: ');
for d:= 1 to m do
  WriteLn('Result[', d, ']: ', result[d]);
 
 
ReadLn;
 
end.

program Dekio;
const
n=5;
m=10;
var
arr: array[1..n,1..m] of integer;
tmp: array[1..m] of integer;
i, j, max: integer;
begin
randomize;
writeln('Èñõîäíàÿ ìàòðèöà:');
for i:=1 to n do
begin
for j:=1 to m do
begin
//readln(arr[i,j]);
arr[i,j]:=random(40);  //ðàíäîìíîå çàïîëíåíèå ìàòðèöû
write(arr[i,j]:4);
end;
writeln;
end;
for j:=1 to m do
begin
max:=1; //çà ìàêñèìàëüíûé áåðåì 1 ýëåìåíò â òåêóùåì ñòîëáöå
for i:=1 to n do
if arr[i,j]>arr[max,j] then //èùåì ìàêñèìàëüíûé ýëåìåíò â ñòîëáöå
max:=i;
tmp[j]:=arr[max,j]
end;
writeln('Ðåçóëüòàò:');
for i:=1 to m do
write(tmp[i]:4);
end.