equal
deleted
inserted
replaced
103 if i > 0 then |
103 if i > 0 then |
104 begin |
104 begin |
105 for t:= 1 to Pred(i) do |
105 for t:= 1 to Pred(i) do |
106 if (a[t] >= 'A')and(a[t] <= 'Z') then Inc(a[t], 32); |
106 if (a[t] >= 'A')and(a[t] <= 'Z') then Inc(a[t], 32); |
107 b:= copy(a, i + 1, Length(a) - i); |
107 b:= copy(a, i + 1, Length(a) - i); |
108 while (b[0] <> #0) do |
|
109 Delete(b, 1, 1); |
|
110 |
|
111 byte(a[0]):= Pred(i) |
108 byte(a[0]):= Pred(i) |
112 end else b:= ''; |
109 end else b:= ''; |
113 end; |
110 end; |
114 |
111 |
115 procedure WriteToConsole(s: shortstring); |
112 procedure WriteToConsole(s: shortstring); |