Найдите скорость лодки по течению реки и против течения, если её собственная скорость 8 км/ч, а скорость течения реки 1 1/2 км/ч.

Скорость лодки по течения реки 8 +1 1/2 = 9 1/2 (км/ч).
Скорость лодки против течения реки 8 — 1 1/2 = 7 — 1/2 = 6 1/2 (км/ч)

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

var
  s, t : string;
  a : array [1..2,0..200] of integer;
  i, j, k : integer;
begin
  assign(input,'input.txt'); reset(input);
  assign(output,'output.txt'); rewrite(output);
  readln(s); t:='';
  k:=0; a[1,k]:=0; a[2,k]:=0;
  for i:=1 to length(s) do
  begin
    k:=k+1;
    if s[i]='N' then begin a[1,k]:=a[1,k-1]; a[2,k]:=a[2,k-1]+1; t:=t+'S' end;
    if s[i]='E' then begin a[1,k]:=a[1,k-1]+1; a[2,k]:=a[2,k-1]; t:=t+'W' end;
    if s[i]='S' then begin a[1,k]:=a[1,k-1]; a[2,k]:=a[2,k-1]-1; t:=t+'N' end;
    if s[i]='W' then begin a[1,k]:=a[1,k-1]-1; a[2,k]:=a[2,k-1]; t:=t+'E' end;
    j:=0;
    while (a[1,j]<>a[1,k]) or (a[2,j]<>a[2,k]) do j:=j+1;
    if j<k then
    begin
      delete(t,j+1,k-j);
      k:=j
    end
  end;
  for i:=length(t) downto 1 do write(t[i])
end.