Найдите и исправьте ошибки в программе print ("Акция "Доброе дело". ")

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

var s1,s2: string;

begin

  s1: ="параллелограмм";

  s2: ="гром";

  for i: = 1 to length(s1) do

  begin

      if i > length(s2) then s[i]='';

      if s1[i]< > s2[i] then s1[i]=s2[i];

    writeln(s1);

  end;

end.

чем не вариант, если правил нету)

гласные звуки иероглифами не передавались.

var i: integer;

begin

  for i: = 35 to 87 do

      if i mod 7 =1 then

          writeln(i);

end.