Нельзя преобразовать тип integer к char. как это исправить? var f, l, r, s : char; a, b : integer; begin a : =0; b : =0; f : =1; l : =0; r : =0; s : =0; assign(input,'input.txt'); reset(input); assign(output,'output.txt'); rewrite(output); read(f,l,r,s); if f then begin a : =a+f end; if l then begin b : =b+l end; if r then begin b : =b-r end; if s then begin a : =a+s; b : =b+s end; write(a,b); end.

//Не смотрел Ваш код, просто моё видение решения задачи
//PascalABC.NET 3.2 сборка 1318

Var
  t:text;
  x,y,i,j:integer;
  s:string;
  c:char;
  world:array[1..4] of char=('E','S','W','N');
begin
j:=1;
c:='E';
assign(t,'input.txt');
reset(t);
read(t,s);
close(t);
i:=1;
while s[i]<>'S' do
 begin
  if s[i]='R' then
    begin
      if c='N' then j:=1 else inc(j);
      c:=world[j];
    end;
  if s[i]='L' then
    begin
      if c='E' then j:=4 else dec(j);
      c:=world[j];
    end;
  if s[i]='F' then
    case c of
      'E':inc(x);
      'S':dec(y);
      'W':dec(x);
      'N':inc(y);
    end;
  inc(i);
  end;
assign(t,'output.txt');
rewrite(t);
write(t,x,' ',y);
close(t);
end.

Пример содержимого input.txt:
FLFS
Пример содержимого output.txt:
1 1