задачки на паскале

[катерина_к]

здравствуйте! прошу вас помочь решить 2 задачки на паскале, т. к. я в нем ничего не понимаю. Заранее всем пасибо, очень вам благодарна.
Вот задание:
1 задача: Программа кодирования путем повторения символов. В программу должно вводиться натуральное число.
Если четное, то программа просит ввести нечетное число. Если нечетное число, то должна вводиться последовательность двоичных символов. Каждый символ этой последовательности повторяется введенное
нечетное число раз и формируется выходная последовательность из повторных символов. Например, мы 4 раза вводим нечетное число 7, в результате вывода должно быть 28 (7*4) двоичных символов.

2 задача: написать программу, переводящую иностранные фамилии в код маску «одна буква-3 цифры». Дополнительный материал к задаче:

Метод кодирования фамилий:

а) оставить первую букву: A, E, H, I, O, V, W, Y, стоящие на других местах – вычеркнуть.

б) оставшейся букве, кроме первой, присвоить следущие значения: (B, F, P, V) -> 1;
(C, G, Y, K, Q, S, X, Z) -> 2;
(D, T) -> 3;
L -> 4;
(M, N) -> 5;
R -> 6

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

г) дописывать в случае надобности нули или отбрасывая лишние цифры, преобразовать получившуюся маску к форме «одна буква-3 цифры».

[катерина_к]

вот что попытались сделать по первой задачке:

Program laba1;
uses crt;
label 1,2;
var
a,i,g:integer;
s:real;
c,b:string;
begin
clrscr;
1 : writeln('vvedite naturalnoe nechetnoe chislo');
readln(a);
if a>0 then
begin
s:=a mod 2;
if s = 0 then
begin
writeln('chislo chetnoe');
Goto 1
end
else;
end
else Goto 1;
2 : writeln('vvedite posledovatelnost dvoichnix chisel');
readln(c);
for i:=1 to length(c) do
begin
if (c[i]='0') or (c[i]='1') then
begin
for 1 to a do
begin
for g:=1 to length(c) do
if c[g]='0' then c[g]:=b[g]+'0'
else c[g]:=b[g]+'1'
end
end
else goto 2;
end;
writeln(c);
readln;
end.