Объясните каждую строчку (паскаль) Const
y = '';
z = '';

Function Code(s : String) : String;
Var i : Byte;
Begin
For i:=1 to Length(s) do
If Pos(s[i],y)>0 then s[i]:=z[Pos(s[i],y)];
Code:=s;
end;

Function DeCode(s : String) : String;
Var i : Byte;
Begin
For i:=1 to Length(s) do
If Pos(s[i],z)>0 then s[i]:=y[Pos(s[i],z)];
Decode:=s;
end;

Begin
Writeln(Code('за окном шёл дождь и рота красноармейцев'));
Writeln(DeCode(Code('за окном шёл дождь и рота красноармейцев')));
end.

1) статья из газеты2) из-за ошибки журналиста известного журналиста считают умершим3) например, "температура кипящей воды - 100С"4) соответственно, "кипящая вода очень горячая"5) "скорый поезд из Новосибирска прибыл на Курский вокзал в 02.35 20 февраля 2010 года"6) "поезд приехал в Москву 20 числа"7) учебник 7 класса по математике для семиклассника8) учебник 7 класса по математике для первоклассника9) текст на русском языке для русскоговорящего человека10) иноязычный сленг для человека, не говорящего на этом языке

1) статья из газеты

2) из-за ошибки журналиста известного журналиста считают умершим

3) например, "температура кипящей воды - 100С"

4) соответственно, "кипящая вода очень горячая"

5) "скорый поезд из Новосибирска прибыл на Курский вокзал в 02.35 20 февраля 2010 года"

6) "поезд приехал в Москву 20 числа"

7) учебник 7 класса по математике для семиклассника

8) учебник 7 класса по математике для первоклассника

9) текст на русском языке для русскоговорящего человека

10) иноязычный сленг для человека, не говорящего на этом языке