пожалуйста прокомментируйте мне программку

[Джессика]

пожалуйста прокомментируйте мне программку


unit Unit1;

interface

uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls;

type
TForm1 = class(TForm)
Memo1: TMemo;
Button1: TButton;
Edit1: TEdit;
Memo2: TMemo;
Memo3: TMemo;
Memo4: TMemo;
procedure Button1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;

var
Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
var
str1:array [1..50] of string;
str2:array [1..50] of string;
str3:array [1..50] of string;

i,j,h,l,z,f,t,x:byte;
s,str12,str22,str32: string;
n,k,m,p: integer;

begin
p:=StrToInt(Edit1.Text);
s:=memo1.Text;
n:=length(s);

k:=n div 3;
m:=n mod 3;
z:=0;

j:=k;
h:=2*k;
l:=3*k+m;
for i:=0 to j do begin
str1[i]:=s[z];
begin
x:=ord(str1[i]);
str12[i]:=chr(x-p);
end;

for f:=j to h do begin
str2[f]:=s[z];
begin
x:=ord(str2[f]);
str22[f]:=chr(x-p);
end;

for t:=h to l do begin
str3[t]:=s[z];
begin
x:=ord(str3[t]);
str32[t]:=chr(x-p);
end;

end;
end;
end;

Memo2.Lines.Add(str12);
Memo3.Lines.Add(str22);
Memo4.Lines.Add(str32);


end;

end.

[evg_m]

вы уверены что это нужно комментировать?

все сводится к ЧАСТИЧНОМУ заполнению трех строк одним и тем же символом, к тому же неверно полученным (индексы в строке начинаются с 1 (z:=0;)

// одним и тем же !!
si:=chr(ord(s[z])-p);
sf:=chr(ord(s[z])-p);
st:=chr(ord(s[z])-p);
//////////
// частично ( в исходном варианте еще и многократно! (повторно)
for i:=0 to j do str12[i]:=si;

for f:=j to h do str22[f]:=sf;

for t:=h to l do str32[t]:=st;

А что должно было быть?!