одномерные массивы

[Женечка92]

помогите если кому не сложно... по первому заданию пробовала сделать, он не заполняет массив. второе третье не пойму как делать, а завтра уже сдавать.
1. Дан массив целых чисел из n элементов, заполненный случайным образом числами из промежутка [-600,600]. Удалить из него все элементы, в которых последняя цифра ноль.
2. Вставить элемент со значением К после всех четных элементов, оканчивающихся на ноль.
3. Поменять местами три средних элемента с тремя последними отрицательными элементами, сохраняя порядок их следования.

вот что я пробовала сделать по 1-у заданию.
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls;
type
TForm1 = class(TForm)
Button1: TButton;
Button2: TButton;
Memo1: TMemo;
procedure Button1Click(Sender: TObject);
procedure Button2Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
Const
N=10;
var
Form1: TForm1;
A,B:array[1..N]of integer; // А - исходный массив, В - полученный массив
i,j:integer;
str:string;
implementation
{$R *.dfm}
procedure TForm1.Button1Click(Sender: TObject);
begin
Button2.Enabled:=true;
Randomize;
str:='';
for i:=1 to N do
begin
A[i]:=Random(1201)-600;
str:=str+IntToStr(A[i])+#9;
end;
Memo1.Lines.Add(str);
str:='';
end;
procedure TForm1.Button2Click(Sender: TObject);
begin
button2.Enabled:=false;
str:='';
j:=0;
for i:=1 to N do
begin
if A[i] mod 10=0 then //то элемент на 0 заканчивается
begin //вставляем его в массив В, если нет, пропускаем его j:=j+1;
B[j]:=A[i];
str:=str+IntToStr(B[j])+#9;
end;
end;
Memo1.Lines.Add(str);
end;
end.

Пожалуйста, помогите если не трудно... заранее спасибо

[RUSt88]

обращайся, сегодня же будет готово