Me ajudem a resolver estes algorítmos(Pascal ZIM!)

[Claudio Siega]

Nao consigo resolver estes algorítmos nem a pau =x

1-Leia dois vetores de 20 posições e num outro vetor coloque, nas posições pares os valores do primeiro e nas posições impares os valores do segundo.

2-Leia um vetor contendo letras de uma frase inclusive espaços em branco. Retirar os espaços em branco do vetor e depois escrevê-lo.

3-Leia um vetor de 10 posições e verifique se existem valores iguais e os escreva.

Se alguem puder ajudar a resolver ficarei grato. ^.^

Estes algoritmos tem que estar prontos ate as 14:00.

[index.xp]

resposta pro 1:

program bla bla bla;

uses crt;

var a,b: array[1..20] of real;

c: array[1..40] of real;

i,z:integer;

begin

for i:=1 to 20 do

readln(a);

for i:=1 to 20 do

readln(b);

i:=1;

z:=1;

repeat

c:=a[z]

c[i+1]:=b[z]

i:=i+2;

z:=z+1;

until i=40;

end.

[index.xp]

resposta da 2

var a,b:string; {se você nao sabe uma string é um array de char}

i:integer;

begin

readln(a);

for i:=1 to length(a) do

if a<>' ' then b:=a;

writeln(;

end;

[index.xp]

var a,b: array[1..10] of integer;

i:integer;

z:integer;

begin

for i:=1 to 10 do begin

readln(a);

readln(b);

end;

for i:=1 to 10 do

for z:=1 to 10 do

if a=b[z] then writeln (a);

end.

[Claudio Siega]

Aí cara, valeu, demorei pra responde porquê ultimamente minha internet não anda muito boa. =(