Информатика, паскаль напишите программу, перемещающую все нулевые элементы в конец массива 80 очков,

const n = 10;

var

  mas: array [1..n] of integer;

  i,j,h: integer;

begin

randomize;

for i : = 1 to n do

  begin

    mas[i] : = random(3);

    write(' ',mas[i],' ');

  end;

  writeln();

for i : = 1 to n - 1 do

  for j : = 1 to n - i do

    if(mas[j] = 0) then

      begin

        h : = mas[j];

        mas[j] : = mas[j + 1];

        mas[j + 1] : = h;

      end;

for i : = 1 to n do

    write(' ',mas[i],' ');

end.

program nn;

uses crt;

var a: array [1..20] of real;

t: real;

i,n,min: integer;

begin

    {ввод последовательности, это самостоятельно}

    min : = 1;

    for i : = 1 to 20 do

    begin

          if  a[i] < a[min] then

                min : = i;

    end;

    t : = a[min];

    a[min] : = a[20-n];

    a[20-n] : = t;

end.

var x,x1: integer;

s: string;

begin

  read(x);

  s: =str(x);

  x1: =int(s[3]+s[2]+s[1]);

  writeln(x-x1);

end.