[Помогите!] Слияние массивов и упорядочивание

[108omg]

Совсем недавно начали в инсте изучать делфи, вот задали такую задачку..
Вобщем надо обьеденить два массива, получить третий массив, который упорядочить по возрастанию, и определить новое количество элементов в массиве.

Надо сделать по этой задаче алгоритм блок-схему, ее вроде кое-как сделал, а вот как реализовать в делфи, не знаю

Кому несложно, помогите начинающему программисту , пасибку не пожалею

[Fiery Dragon]

const SizeF:integer=5;
SizeS:integer=5;
SizeT:integer=10;
var
FirstArr:array [1..SizeF] of integer;
SecondArr:array[1..SizeS] of integer;
ThdArr:array[1..SizeT] of integer;
i,j,min,count:integer;
begin
j:=1;
count:=0;

for i:= 1 to SizeF do
begin
writeln('Введите FirstArr[',i,'] элемент: ');
readln(  FirstArr[i]);
end;

for i:= 1 to SizeS do
begin
writeln('Введите SecondArr[',i,'] элемент: ');
readln(  SecondArr[i]);
end;

for i:= 1 to SizeT do
begin
if (i<=SizeF) then  begin
 ThdArr[i]:=FirstArr[i] ;
 inc(count);
 end
 else
 begin
 ThdArr[i]:=SecondArr[j];
 inc(count);
 inc(j);
 end;
 end;
 

for i:=2 to SizeT do
for j:=SizeT downto i do
if ThdArr[j-1]>ThdArr[j] then
begin
min:=ThdArr[j-1];
ThdArr[j-1]:=ThdArr[j];
ThdArr[j]:=min;
end;
        
for i:= 1 to SizeT do
writeln( ThdArr[i]);
writeln('Общее количество элементов:',count);

end.

[Fiery Dragon]

var
FirstArr:array [1..5] of integer;
SecondArr:array[1..5] of integer;
ThdArr:array[1..10] of integer;
i,j,min,count,SizeF,SizeS,SizeT:integer;
begin
j:=1;
count:=0;
SizeF:=5;
SizeS:=5;
SizeT:=10;

for i:= 1 to SizeF do
begin
writeln('Введите FirstArr[',i,'] элемент: ');
readln(  FirstArr[i]);
end;

for i:= 1 to SizeS do
begin
writeln('Введите SecondArr[',i,'] элемент: ');
readln(  SecondArr[i]);
end;

for i:= 1 to SizeT do
begin
if (i<=SizeF) then  begin
 ThdArr[i]:=FirstArr[i] ;
 inc(count);
 end
 else
 begin
 ThdArr[i]:=SecondArr[j];
 inc(count);
 inc(j);
 end;
 end;


for i:=2 to SizeT do
for j:=SizeT downto i do
if ThdArr[j-1]>ThdArr[j] then
begin
min:=ThdArr[j-1];
ThdArr[j-1]:=ThdArr[j];
ThdArr[j]:=min;
end;
writeln(' ');
for i:= 1 to SizeT do
writeln( ThdArr[i]);
writeln('Общее количество элементов:',count);
readln(i);

end.

попробуй так...константы дельфи чего-то не видет,а в pascal abc запустилось =\

[Fiery Dragon]

Для рандома пишешь в самом начале где-нить

Randomize;

а в цикле пишешь

for i:= 1 to SizeF do
begin
a:=random(50);
FirstArr[i]=a;
end;

а для поиска надо массив через двойной цикл прогнать и искать на совпадение соседних элементов,если совпадение удалять

[Fiery Dragon]

var
FirstArr:array [1..5] of integer;
SecondArr:array[1..5] of integer;
ThdArr:array[1..10] of integer;
tempArr:array [1..10] of integer;
i,j,z,min,count,SizeF,SizeS,SizeT,rand:integer;
temp:boolean;
begin
j:=1;
count:=0;
SizeF:=5;
SizeS:=5;
SizeT:=10;
randomize;
for i:= 1 to SizeF do
begin
rand:=random(10);
FirstArr[i]:=rand ;
end;

for i:= 1 to SizeS do
begin
rand:=random(10);
SecondArr[i]:=rand;
end;

for i:= 1 to SizeT do
begin
if (i<=SizeF) then  begin
 ThdArr[i]:=FirstArr[i] ;
 inc(count);
 end
 else
 begin
 ThdArr[i]:=SecondArr[j];
 inc(count);
 inc(j);
 end;
 end;


for i:=2 to SizeT do
for j:=SizeT downto i do
if ThdArr[j-1]>ThdArr[j] then
begin
min:=ThdArr[j-1];
ThdArr[j-1]:=ThdArr[j];
ThdArr[j]:=min;
end;
writeln(' ');
 count:=0;
 z:=1;
writeln('Massiv do proverki na povtorbI:');

for I := 1 to SizeT  do
writeln(ThdArr[i]);
writeln(' ');


   For i := 1 to SizeT do
     Begin
        temp := false;
          For j := 1 to 10 do
            begin
            if (i=j) then  continue
            else  begin
              If ThdArr[i] = ThdArr[j] then   
                  begin
                           temp := true;
                           break;
                  end;
            end;
                
           end;
        if temp <> true then
          begin
            tempArr[z]:= ThdArr[i];
            inc(z);
          end;
     End;

writeln('massiv bez povtor element:');
for I := 1 to z-1 do
writeln(tempArr[i]);
writeln('Vcego elementov v novom massive: ',z-1);
     
readln(i);
end.

фуф,написал)