Те кто шарит в информатике

нужно найти ошибку в паскале(пишу это в самом паскале и не правильно,т.е где то ошибка). уже замучились искать
условие было: дано 3 числа.найти кратные 3 и вывести их в порядке убывания.

program z_1;

var a,b,c,d,e,f: integer;

begin

d: =0;

e: =0;

f: =0;

read(a,b,c);

if a mod 3=0 then

d: =a;

if b mod 3=0 then

e: =b;

if с mod 3=0 then

f: =с;

if (d> e) and (d> f) then

write(' ',d);

if (e> d) and (e> f) then

write(' ',e);

if (f> d) and (f> e) then

write(' ',f);

if (d> e) and (e> f) then

write(' ',e);

if (f> e) and (e> d) then

write(' ',e);

if (e> d) and (d> f) then

write(' ',d);

if (f> d) and (d> e) then

write(' ',d);

if (d> f) and (f> e) then

write(' ',f);

if (e> f) and (f> d) then

write(' ',f);

if (d=0) and (e=0) and (f=0) then

write('значений нет');

end.

program z_1;

var

  a, b, c, k, t: integer;

begin

  k : = 3;

  read(a, b, c);

  if abs(a) mod 3 < > 0 then

    k : = 2;  

  if abs(b) mod 3 = 0 then

  begin

    if k = 2 then

      a : = b

  end

  else

    dec(k);

  if abs(c) mod 3 = 0 then

  begin

    if k = 1 then

      a : = c

    else if k = 2 then

      b : = c;

  end

  else

    dec(k);

  case k of  

    0: write('значений нет');

    1: write(a);

    else

    begin

      if b > a then

      begin

        t : = a;

        a : = b;

        b : = t;

      end;

      if k = 3 then

      begin

        if c > b then

        begin

          t : = b;

          b : = c;

          c : = t;

        end;

        if b > a then

        begin

          t : = a;

          a : = b;

          b : = t;

        end;

        write(a, ' ', b, ' ', c);

      end

      else

        write(a, ' ', b);

    end;

  end

end.

если отрицательными числа быть не могут, можно abs( ) убрать

ответ:

program z_1;

var

  a, b: array [1..3] of integer;

  i, imax, btmp: integer;

  ine: boolean;

begin

  for i : = 1 to 3 do begin

    read (a [i]);

    b [i] : = 0;

  end;

  ine : = false;

  for i : = 1 to 3 do begin

    if a [i] mod 3 = 0 then begin

      b [i] : = a [i];

      ine : = true;

    end else

      b [i] : = 0;

  end;

  if ine then begin

    imax : = 1;

    for i : = 2 to 3 do

      if b [i] > b [imax] then

        imax : = i;

    btmp : = b [imax];

    b [imax] : = b [1];

    b [1] : = btmp;

    if b [2] < b [3] then begin

      btmp : = b [2];

      b [2] : = b [3];

      b [3] : = btmp;

    end;

    writeln;

    for i : = 1 to 3 do

      if b [i] < > 0 then

        write (b [i], ' ');

  end else

    writeln ('значений нет.');

  readln;

  readln;

end.

точно не помню но по-моему control + c