Pascal

Tym razem cos w pascalu, co to za program przeanalizuj sam :)

program p2;
uses Crt;
var
    tj : String;
     w : Integer;
    kr : String;
    dl : Integer;
   ost : Integer;
   wys : Integer;
     i : Integer;
indeks : Integer;
  pocz : Integer;
begin
ClrScr;
writeln('Podaj slowo: ');
readln(kr);
writeln('Wysokosc plotu: ');
readln(w);
dl := Length(kr);
ost := dl mod w;
wys := round(dl / w);
indeks := 1;
pocz := 1;
for i=1 to dl do
  begin
   if i <= ost then
   begin
    tj := tj + kr[index];
    if i <ost> dl then
     begin
     Inc(pocz);
     indeks := pocz;
    end;
   end;
  end;
writeln(tj);
readln;
end.