Динам. переменные(список из 2 массивов)

[Vitaly12]

Даны две последовательности целых и действительных чисел. Сформировать список, в котором числа последовательно чередуются. Если последний элемент списка – целое число, то переместить его в начало списка.
Вот что у меня получилось:

program asd;
type
cel=array [1..100] of integer;
rea=array [1..100] of real;
var a:^cel;
b:^rea;
c:array[1..100] of real;
n,i:integer;
begin
randomize;
write('vvedite kolvo elementov v massivah= ');
readln(n);
writeln('Massiv celih chisel:');
New(a);
for i:=1 to n do
begin
a^[i]:=random(99);
write(a^[i],' ');
end;
writeln;
Writeln('massiv realnih chisel:');
New(b);
for i:=1 to n do
begin
b^[i]:=random(99);
write(b^[i]:2:2,' ');
end;
writeln;
writeln('SPISOK:');
for i:=1 to 2*n do
begin
if odd(i) then c[i]:=a^[i div 2+1]
else c[i]:=b^[i div 2];
write(c[i]:2:2,' ');
end;
Dispose(a);
Dispose(b);
readln;
end.

Как описать массив С, что б в него входили элементы двух типов?
И вообще хоть чтото в этом коде правильно..?

[Stilet]

что б в него входили элементы двух типов?

Как Variant. В твоем случае как Real подойдет.

хоть чтото в этом коде правильно..?

Запусти - узнаешь

[Vitaly12]

Он то работает, но мне же нужно чтобы в массив входили как целые так и действительные. Ниже пример
Массив целых: 1,2,3,4
Массив действительных: 1,1 2,2 3,3 4,4
Результирующий массив : 1 1,1 2 2,2 3 3,3 4 4,4
Подскажите пожалуйста.

[s-andriano]

Целые и вещественные числа - совершенно различные объекты.
По идее, даже сравнивать их на больше/меньше нельзя, как , например, нельзя сравнивать на больше/меньше числа со строками.
То есть формальная процедура есть/может_быть_написана, но "физического смысла" при этом она может не иметь.

Да, Ваш Вариант решения:

Массив целых: 1,2,3,4
Массив действительных: 1,1 2,2 3,3 4,4
Результирующий массив : 1 1,1 2 2,2 3 3,3 4 4,4

Не удовлетворяет условию задачи.
Должно быть примерно так:
1,1,2,1,3,2,4,2,3,3,4,4