Массив, записи...

[eragon_ua]

Ребята, у меня 2 вопроса, помогите..

Вот в этом массиве записей нужно что бы выводились записи, которые имеют заданный номер отдела и выводился созданный массив. Записи выводятся, но как сделать так, что бы выводился еще и созданный массив.

Program zar;
uses crt;
const n=2;
Type sotrud=record
  fio,dol:string[20];
  otd : integer;
  zar  : real;
end;
 
var 
  a:array[1..n] of sotrud;
  i:byte;
  otd2:integer;
begin
clrscr;
for i:=1 to n do
with a[I] do
begin
writeln('   ','Vvedite FIO');
readln(fio);
writeln('Vvedite dol`jnost`');
readln(dol);
writeln('Vvedite otdel');
readln(otd);
writeln('Vvedite zarplatu');
readln(zar);
end;
writeln('======================');
writeln('Vvedite nomer otdela');
readln(otd2);
for i:=1 to n do 
with a[I] do 
if otd=otd2 then writeln(fio,' ',dol,' ',zar:4:2,'$')
end.

И второй вопрос. Что дописать, что бы еще выводился созданный массив прямоугольником ?

Program mas;
uses crt;
const n=2; m=3;
var A:array[1..n,1..m] of integer;
minA:array[1..m] of integer;
i,j,min:integer;
Begin
writeln;
writeln('vvedite elementy massiva:');
for i:=1 to n do
for j:=1 to m do

read(A[i,j]);
for j:=1 to m do begin
min:=a[1,j];
for i:=2 to n do
   if a[i,j]<min then min:=a[i,j];
minA[j]:=min;
end;
writeln('Minumalniy element stolbcov:');
for j:=1 to m do
write(minA[j],' ');
end.

Заранее благодарен.

[GetMax]

Видимо вас это интересует:

как сделать так, что бы выводился еще и созданный массив.

for i:=1 to n do 
with a[I] do  writeln(fio,' ',dol,' ',zar:4:2,'$')

Что дописать, что бы еще выводился созданный массив прямоугольником ?

For i:=1 to N do
Begin
  For j:=1 to M do
  Write(A[i,j]:3); 
  Writeln
End;

[eragon_ua]

Спасибо Вам, все работает.