Вопрос, строки Опции

[-Даша-]

Подскажите пожалуйста!

Вот задание: Ввести с клавиатуры две строки. Вывести на экран пары букв, стоящие на одинаковых местах в строке. {например: «СНИКЕРС» , «ЙОРГУРТ»: СЙ, НО, ИР, КГ, …}
var a,b:string;
i,j:integer;
begin
writeln('Vvedite 1 stroky');
readln (a);
writeln ('Vvedite 2 stroky');
readln (b);
i:=length (a);
writeln('Dlina1:',i);
j:=length (b);
writeln('Dlina2:',j);
writeln ('Otvet: ',a[1],a[1]a[i],a[j]) {как выводить буквы строки с a[1],b[1] по a[i],b[j] ???}
end.

Как сделать, чтобы выводились только буквы и собственно говоря как вывести сам ответ. Непонятно.
Помогите исправить программу.

Сообщение отредактировано: -Даша- - 22.06.2008 19:39

[renesko1]

Видимо надо использовать цикл.
for i := 1 to length(MenschoeSlovoPoDline) do
...writeln(String1[i], string2[i]) ;

наверное так.

[-Даша-]

Видимо надо использовать цикл.
for i := 1 to length(MenschoeSlovoPoDline) do
...writeln(String1[i], string2[i]) ;

наверное так.

И куда надо его вставить?