program solve;

{$APPTYPE CONSOLE}

uses
  SysUtils;

Var X,y:real;
  i,n:integer;
  c:char;
{fucken_test_writers:integer}
begin
  Assign(input,'d:\12.txt');
  reset(input);
  Assign(output,'d:\121.txt');
  rewrite(output);
  X:=0; Y:=0;
  While (not eof(input))and(c<>'0') do
    begin
      read(c);
      Val(c,i,n);
     Case i of
      1:begin
          X:=X-1/sqrt(2);
          Y:=Y-1/sqrt(2);
        end;
      2:begin
          Y:=Y-1;
        end;
      3:begin
          X:=X+1/sqrt(2);
          Y:=Y-1/sqrt(2);
        end;
      4:begin
          X:=X-1;
        end;
      6:begin
          X:=X+1;
        end;
      7:begin
          X:=X-1/sqrt(2);
          Y:=Y+1/sqrt(2);
        end;
      8:begin
          Y:=Y+1;
        end;
      9:begin
          X:=X+1/sqrt(2);
          Y:=Y+1/sqrt(2);
        end;
      end;
    end;
{ For i:=1 to 16 do
    Readln(a[i]);
  i:=16;}
{ X:=0; Y:=0;
  For j:=1 to i-1 do
    begin
     Case a[j] of
      1:begin
          X:=X-1/sqrt(2);
          Y:=Y-1/sqrt(2);
        end;
      2:begin
          Y:=Y-1;
        end;
      3:begin
          X:=X+1/sqrt(2);
          Y:=Y-1/sqrt(2);
        end;
      4:begin
          X:=X-1;
        end;
      5:begin
        end;
      6:begin
          X:=X+1;
        end;
      7:begin
          X:=X-1/sqrt(2);
          Y:=Y+1/sqrt(2);
        end;
      8:begin
          Y:=Y+1;
        end;
      9:begin
          X:=X+1/sqrt(2);
          Y:=Y+1/sqrt(2);
        end;
      0:begin
        end;
      end; }
// writeln(X:0:10,' ',Y:0:10);
  { end;}
   Writeln(X:0:10,' ',Y:0:10);
// Readln;
end.

For what  "Val(c,i,n);" ? Can't you write '1', not 1 in case? 1/sqrt(2) you can calculate only once and use always =)
Your code is very aaaa complicated =)