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

[-Даша-]

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

Вот задание: Ввести с клавиатуры две строки. Вывести на экран пары букв, стоящие на одинаковых местах в строке. {например: «СНИКЕРС» , «ЙОРГУРТ»: СЙ, НО, ИР, КГ, …}
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

[volvo]

как сделать так, чтобы программа выводила только буквы?

Тебе написали выше, что надо пользоваться циклом... И написали КАКИМ (то, что написано в сообщении №5 - именно "как-то", не надо так делать, незачем вводить лишние сущности - переменные - ТОЛЬКО для того, чтобы их распечатать, а вводить переменную типа String - 255 байт, а использовать только ОДИН из них - это верх безумия...)