const m=5; n=4;
var 
a:array[1..m,1..n] of integer;
b:array[1..m] of integer;
i,j,max,min:integer;
begin
Randomize;
writeln('Исходный массив:');
for i:=1 to m do
 begin
 for j:=1 to n do
  begin
  a[i,j]:=random(50);
  write(a[i,j]:4);
  end;
  writeln;
 end;
for i:=1 to m do
 begin
 max:=a[i,1]; min:=a[i,1];
 for j:=2 to n do
  begin
  if a[i,j]>max then max:=a[i,j];
  if a[i,j]<min then min:=a[i,j];
  end;
 b[i]:=max-min;
 end;
writeln('Полученный массив:');
for i:=1 to m do write(b[i]:4);
writeln; 
end.

Пример:
Исходный массив:
  45  33  36  27
  11  38  48  21
  45  19   5  33
  12   3  40  41
  34  39  29   0
Полученный массив:
  18  37  40  38  39