Переведите в pascal пожалуйста

> но переводить не буду
Правильно. Пусть тот, кто написал это безобразие, сам мучается :D

program N85306240;
const
  j: byte = 0;
var
  a, b: array of shortint;
  n, i: byte;
begin
  randomize;
  n := random(91) + 10;
  setlength(a, n);
  writeln('Дан одномерный массив A(', n, '):');
  for i := Low(a) to High(a) do
  begin
    a[і] := random(199) - 99;
    write(a[і]:4)
  end;
  writeln(#13#10);
  setlength(b, n);
  for i := Low(a) to High(a) do
    if not odd(a[і]) then
    begin
      b[j] := a[і];
      inc(j)
    end;
  if j = 0 then
    writeln('Все числа нечётные')
  else
  begin
    setlength(b, j);
    writeln('Сформированный массив B(', j, '):');
    for i := Low(b) to High(b) do
      write(b[і]:4)
  end;
  write(#13#10#10'Чтобы продолжить, нажмите Enter');
  readln;
  finalize(a);
  finalize(b)
end.

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

Ошибок в программе не видно, но переводить не буду...

чо это было 

ебать тут трильйон ошибок в праграме