Никак не допру как решить задачу.
Даны строки А и В (не обязательно равной длины). Составить программу, формирующую строку С из совпадающих по позиции и коду символов строк А и B. Например: А="Эдельвейс", В="Идальго", тогда
С="дль". Вывести на экран полученную строку С.

var a,b:string;
    i:byte;
begin
writeln('Enter string ');
readln(a);
b:='';
for i:=1 to length(a) do
    b:=b+succ(a[i]);
writeln('Result : ',b);
readln;
end.

lisagera, в случае если в результате добавления 1-цы получаем НЕ букву кириллицы, что происходит?

Bokul, а какое отношение твой код имеет к этой задаче ? Помоему он выполняет не то что требуется в задании ...

Наверное вот так ?

uses crt;

function GetRes(lo, hi : string) : string;
var
  i : byte;
  s : string;
begin
  s := '';
  for i := 1 to length(lo) do
   if lo[i] = hi[i] then s := s + lo[i];
  GetRes := s;
end;

var
  a, b, c : string;

begin

  clrscr;

  a := 'Эдельвейс';
  b := 'Идальго';

  if length(a) > length(b) then
   c := GetRes(b, a)
  else
   c := GetRes(a, b);

  writeln( c );

  readln;
end.

Если автор что-то менял в первом сообщении, извиняюсь ...

klem4, а там это... Раньше другое задание было...


Ага, я понял уже )