А где же остальные задачи? Я вижу только одну.
А эту задачу можно решить так:
Заполняешь массив B числами <= самому большому элементу в A , которые являются степенью 2. Потом прогоняешь массив A и если какой - нибудь элемент равен одному из B то выводишь его, и усёё!
А вот это я не понял : "как сделать так, чтоб на экран выводились символы русской клавиатуры? Как использовать таблицу кодов ASCII?" ---- а они что китайские чтоли выводятся??

program Project2;

{$Apptype console}

uses Windows;

procedure WrStr(Str: String);
var
Buf: PChar;
begin
if Str <> '' then
begin
GetMem(Buf, Length(Str) + 1);
AnsiToOEM(PChar(Str), Buf);
Write(Buf);
FreeMem(Buf);
end;
end;

begin
WrStr('Русский текст: ЁКЛМН... ёклмл...');
ReadLn;
end.

))))

Найти все простые числа в массиве.
кароче нада решить ету задачку в консоле апликеишен )