if a[x]<>0 then begin b[t]=a[x]; t:=t+1; end;

then begin b[t]=a[x]

begin
t:=1;
 for x:=1 to n do
  a[x]:=random (100);
 for x:=1 to n do
   if a[x]<>0 then begin b[t]=a[x]; t:=t+1; end;
 for x:=1 to t do
  writeln (b[x],' ');
  readln
end.

if a[x]<>0 then begin b[t]=a[x]; t:=t+1; end;

program MasSiv;
Function Massiv(a:array of integer;n:integer):string;{Это и есть наша функция:)}
var x,t:integer;
b:array [1..500] of integer;
begin
t:=1;
 for x:=1 to n do
  a[x]:=random (20);
 for x:=1 to n do
   if a[x]<>0 then
   begin
    b[t]:=a[x];
    inc(t);{тоже самое что и t:=t+1}
   end;
 for x:=1 to n do
  write (a[x],'  ');{Выводим исходный массив(для сравнения)} 
  Writeln;
  Writeln;
 for x:=1 to t-1 do
  write (b[x],'  ');{Выводим полученный массив}
  readln;
end;
const n=20;{n элементов в массиве}
var
a:array [1..n] of integer;
begin
  Massiv(a,n);{Используем нашу функцию:)}
end.

program Zodacha_one;

const
  XSize = 5;
  YSize = 11;

procedure fillmassive (numel : integer; var a : array of integer);
var
  i : integer;
begin
  randomize;
  for i := 0 to numel - 1 do
    a[i] := Random (100);
end;

function getmax (numel : integer; a : array of integer) : integer;
var
  i, max : integer;
begin
  i := 0;
  max := a[i];
  while i < numel do begin
    if a [i] > max then
      max := a [i];
    i := i + 2;
  end;
  getmax := max;
end;

var
  x : array [1..XSize] of integer;
  y : array [1..YSize] of integer;
  i, max : integer;

begin
  fillmassive (XSize, x);
  for i := 1 to XSize do
    write (x[i], ' ');
  writeln;
  max := getmax (XSize, x);
  writeln ('Max = ', max);

  fillmassive (YSize, y);
  for i := 1 to YSize do
    write (y[i], ' ');
  writeln;
  max := getmax (YSize, y);
  writeln ('Max = ', max);
end.

program ZodachaTwo;

const
  Size = 30;

type
  TMassive = array [0..Size - 1] of integer;

procedure FillMassive (numel : integer; var a : TMassive);
var
  i : integer;
begin
  Randomize;
  for i := 0 to numel - 1 do
    a[i] := Random (10);
end;

function NotNullCount (numel: integer; a : TMassive) : integer;
var
  i, cnt : integer;
begin
  cnt := 0;
  for i := 0 to numel - 1 do
    if a[i] <> 0 then
      cnt := cnt + 1;
  NotNullCount := cnt;
end;

function DropNulls (numel : integer; a : TMassive) : TMassive;
var
  i, j : integer;
  t : TMassive;
begin
  i := 0;
  j := 0;
  while i < numel do begin
    if a [i] <> 0 then begin
      t[j] := a [i];
      j := j + 1;
    end;
    i := i + 1;
  end;
  DropNulls := t
end;

var
  x, y : TMassive;
  i, count : integer;

begin
  FillMassive (Size, x);
  for i := 0 to Size - 1 do
    write (x[i], ' ');
  writeln;
  y := DropNulls (Size, x);
  count := NotNullCount (Size, x);
  for i := 0 to count - 1 do
    write (y[i], ' ');
  writeln;
end.