помогите плз по паскалю

{ что-то типа такого фрагмента бедет}
var
s, s0: String; // s - Результат
i, k: Integer;
begin
s0 := 'Это исходная строка';

// Удвоение символов в строке
s := '';
for i := 1 to Length(s0) do
s := s + MidStr(s0, i, 1) + MidStr(s0, i, 1);
Writeln(s);

// для вычеркивания из слова X каждой третьей буквы.
s := '';
for i := 1 to Length(s0) do
if i mod 3 <> 0 then
s := s + MidStr(s0, i, 1) + MidStr(s0, i, 1);
Writeln(s);

// проверяющую, все ли буквы слова X одинаковы
s := LeftStr(s0, 1);
for i := 1 to Length(s0) do
if s <> MidStr(s0, i, 1) then
begin
s := '';
Break;
end;
if s <> '' then
Writeln('Все одинаковые "' + s + '"')
else
Writeln('Не все одинаковые "' + s0 + '"');

// выясняющую, сколько раз в слове X встречается сочетание из первых двух букв слова Y
s := 'СтрокаY'; // Слово Y
k := 0;
for i := 1 to Length(s0) - 2 do
if LeftStr(s, 2) = MidStr(s0, i, 2) then
Inc(k);
if k > 0 then
Writeln('Есть совпадения ', k, 'шт. ')
else
Writeln('Нет совпадений');
end.