Цикл оформляется следующей записью: while <expr>: <statement(s)> 1). что записывается вместо expr?
2). что записывается в блоке statement(s)?
3). в каком случае прекратится выполнение цикла?

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

const
  m:array['0'..'7'] of string=
      ('000','001','010','011','100','101','110','111');
  m1:array['1'..'7'] of string=
      ('1','10','11','100','101','110','111');
var
  s8,s2:string;
  i:integer;
begin
  Write('Введите восьмеричное число: '); Readln(s8);
  s2:=m1[s8[1]];
  for i:=2 to Length(s8) do s2:=s2+m[s8[i]];
  Writeln('В двоичной системе: ',s2)
end.

Тестовое решение:
Введите восьмеричное число: 360721
В двоичной системе: 11110000111010001

// F#
[<EntryPoint>]
let main argv =
    let elements =
        System.Console.ReadLine().Split(' ')
        |> Seq.map (fun x -> System.Int32.Parse x)
        |> Seq.mapi (fun i x -> (x, i))
        |> Seq.where (fun (x, i) -> x % 2 = 0)
    if elements |> Seq.length > 0
        then System.Console.WriteLine("{0} {1}", elements |> Seq.last |> fst, (elements |> Seq.last |> snd) + 1)
        else System.Console.WriteLine("No results")
    System.Console.ReadKey true |> ignore
    0