Написать программку, которая по данным вышине прямоугольника и порядке прочтения строк

var
nbsp;nbsp;n, i, j, k1, k2, kk : integer;
nbsp;nbsp;a : array [1..10] of integer;
nbsp;nbsp;s : string;
nbsp;nbsp;t : array [1..10] of string;
begin
nbsp;nbsp;assign(input,input.txt); reset(input);
nbsp;nbsp;assign(output,output.txt); rewrite(output);
nbsp;nbsp;readln(n);
nbsp;nbsp;for i:=1 to n do read(a[i]);readln;
nbsp;nbsp;readln(s);
nbsp;nbsp;k1:=length(s) div n;
nbsp;nbsp;k2:=length(s)-k1*n;
nbsp;nbsp;for i:=1 to n do
nbsp;nbsp;begin
nbsp;nbsp;nbsp;nbsp;if a[i]gt;k2 then kk:=k1 else kk:=k1+1;
nbsp;nbsp;nbsp;nbsp;t[a[i]]:=copy(s,1,kk);
nbsp;nbsp;nbsp;nbsp;delete(s,1,kk)
nbsp;nbsp;end;
nbsp;nbsp;for i:=1 to k1 do for j:=1 to n do s:=s+t[j][i];
nbsp;nbsp;for j:=1 to k2 do s:=s+t[j][k1+1];
nbsp;nbsp;writeln(s)
end.