/in/foo.cc:1:1: error: 'var' does not name a type
 var
 ^~~
/in/foo.cc:3:3: error: 'i' does not name a type
   i, ans, cmd:longint;
   ^
/in/foo.cc:4:1: error: 'begin' does not name a type
 begin
 ^~~~~
/in/foo.cc:6:9: error: expected constructor, destructor, or type conversion before '(' token
   readln(st);
         ^
/in/foo.cc:7:3: error: expected unqualified-id before 'while'
   while s[length(s)] = ' ' do delete(s, length(s), 1);
   ^~~~~
/in/foo.cc:8:3: error: expected unqualified-id before 'while'
   while st[length(st)] = ' ' do delete(st, length(st), 1);
   ^~~~~
/in/foo.cc:9:3: error: expected unqualified-id before 'for'
   for i := 1 to length(s) do
   ^~~
/in/foo.cc:12:3: error: expected unqualified-id before 'for'
   for i := 1 to length(st) do
   ^~~
/in/foo.cc:15:3: error: 'cmd' does not name a type
   cmd := -1;
   ^~~
/in/foo.cc:16:3: error: 's' does not name a type
   s := ' ' + s + ' ';
   ^
/in/foo.cc:17:3: error: 'st' does not name a type
   st := ' ' + st + ' ';
   ^~
/in/foo.cc:18:3: error: expected unqualified-id before 'for'
   for i := 1 to length(st) - length(s) + 1 do
   ^~~
/in/foo.cc:22:9: error: expected unqualified-id before 'if'
         if cmd = -1 then cmd := i - 1;
         ^~
/in/foo.cc:23:7: error: 'end' does not name a type
       end;
       ^~~
/in/foo.cc:24:3: error: expected unqualified-id before 'if'
   if ans = 0 then write(-1)
   ^~
/in/foo.cc:26:1: error: 'end' does not name a type
 end.
 ^~~