Помогите исправить код в Delphi

[Saka]

Здраствуйте. В коде надо удалять, а не занулять числа содердащие "5". И массив "B" не из положительных чисел массива "А" а из простых чисел массива "А". Плюс начальный массив надо сдвигать, а не тот что получился после преобразований. Помогите срочно плз

program Project11;

{$APPTYPE CONSOLE}

uses
  SysUtils;

type
Titem=longint;
TDar=array of Titem;
Var
x,T1,w,p,n,k,j,i:longint;
c,A,B:Tdar;
T:Titem;
fl:boolean;
begin
  try
    { TODO -oUser -cConsole Main : Insert code here }
Begin
repeat
  writeln('Vvedite kol-vo elementov'); readln(n);
until n>0;
setLength(A,n);
i:=Low(A);
randomize;
repeat
A[i]:=random(100);
inc(i);
until i>High(A);
writeln('Massiv A');
if High(A)>=0 then
for i := Low(A) to High(A) do
  Write(A[i],' ') else
writeln('there are no elements');
writeln;
i:=Low(A);
k:=0;
repeat
begin
  inc(k);
Setlength(B,k);
B[k-1]:=A[i];
End;
inc(i);
until i>High(A);
writeln('Massiv B iz A:');
if High(b)>=0 then
 for i:=Low(B) to High(B) do
write(B[i],' ')
else
begin
write('there are no elements');
readln;
End;
writeln;


      for i:=Low(A) to High(A) do
      begin
        x := A[i];
        while (x > 0) do
        begin
          N := x mod 10;
          x := x div 10;
          if (n=5) then begin
            A[i] := 0;
            x := 0; {это чтобы выйти из цикла}
          end;
        end;
      end;

for i:=Low(B) to High(B) do
write(A[i],' ');
writeln;

  end;
  readln;
writeln('vvedite k');
readln(k);
x:=0;
p:=0;
for i:=1 to k do
begin
  T1 := A[High(A)];
        for j := High(A) downto Low(A)+1 do
           A[j] := A[j-1];
        A[Low(A)] := T1;
end;
        writeln('Massiv A posle sdviga:');
      if High(A) > 0 then
        for i := Low(A) to High(A) do
          Write(A[i], ' ');
      WriteLn;

  finally

  end;
  readln;
        end.

[Saka]

up))) waiting for help

[Alex_FF]

вот когда-то сдавал эту работу в университете:

(*****************************************************************************
  Дана последовательность натуральных чисел {aj}, j = 1, ..., n (n <= 1000).
  Удалить из последовательности числа, произведение цифр которых равно 144, а 
  среди оставшихся продублировать числа, содержащие цифру 8.
*****************************************************************************)

program lab14_v4;

const
  Source = 'input.txt';
  Target = 'output.txt';
  Len = 1000;

{ Возвращает TRUE если произведение цифр числа равно 144 }
function P144(X: Longint): Boolean;
var
  Prod: Longint;
begin
  Prod := 1;
  while X <> 0 do
  begin
    Prod := Prod * (X mod 10);
    X := X div 10;
  end;
  P144 := Prod = 144;
end;

{ Возвращает TRUE если число содержит цифру 8 }
function I8(X: Longint): Boolean;
begin
  I8 := False;
  while X <> 0 do
  begin
    if X mod 10 = 8 then
    begin
      I8 := True;
      Exit;
    end;
    X := X div 10;
  end;
end;

var
  I, K, N: Integer;
  a: Array[1..2 * Len] of Longint;

begin
  Assign(Input, Source);
  Reset(Input);
  Assign(Output, Target);
  Rewrite(Output);
  ReadLn(N);
  for I := 1 to N do
    Read(a[I]);
  I := 1;
  while I <= N do
  begin
    if P144(a[I]) then
    begin
      for K := I to N - 1 do
        a[K] := a[K + 1];
      Dec(N);
      Dec(I);
    end
    else if I8(a[I]) then
    begin
      Inc(N);
      for K := N downto I + 1 do
        a[K] := a[K - 1];
      Inc(I);
    end;
    Inc(I);
  end;
  for I := 1 to N do
    Write(a[I], ' ');
end.

[Alex_FF]

Сообщение от Saka

up))) waiting for help

лучше так:
waiting for sunset

[Saka]

это вообще к чему. я попросил же исправить мой код в соответствии с условиями

[Saka]

up помогите плззз

[Saka]

up) где вы все

[Saka]

Up ну помгите же, пожалуйста) срочно!

[Alex_FF]

Сообщение от Saka

это вообще к чему. я попросил же исправить мой код в соответствии с условиями

Это к тому, как сдвигать массив влево и вправо. А с твоим кодом мне лень разбираться, там слишком много букв

[Alex_FF]

http://programmersforum.ru/showthrea...t=77126&page=2