Заменить адрес: улица «Попова» дом «12 Д» на улица «Лебедева» дом «1» — Pascal(Паскаль)

Program yl;

var
  s: string[30];

begin
  write('nazvanie lici: ');
  readln(s);
  if s = 'popova d12' then
    s := 'lebedeva 1';
  writeln(s);
  readln(s);

end.