Program Premier_liga_2; var B, Diff: array [1..16] of integer; Team: array[1..16] of string; I, K, X, Z, P: integer; St: string; begin writeln('Введите названия команд и полученные ими очки'); for I:=1 to 16 do begin write(I, ' Название: '); readln(Team[I]); write('Очки: '); readln(B[I]); write('Забитые мячи: '); readln(Z); write('Пропущенные мячи: '); readln(P); Diff[I]:= Z-P; end; for K:=1 to 15 do for I:=1 to 16-K do if (B[i] < B[I+1]) or ((B[i] = B[I+1]) and (Diff[i] < Diff[I+1])) then begin X:=B[I]; B[I]:=B[I+1]; B[I+1]:=X; St:=Team[I]; Team[I]:=Team[I+1]; Team[I+1]:=St; end; for I:=1 to 16 do begin for K:=1 to 18-length(Team[I]) do Team[I]:=Team[I]+' '; writeln(I:2, ' ', Team[I]:18, B[I]:2) end; end. Вот программа но у меня выдает ошибку в 29 строчке

//Pascal ABC.NET 3.1 сборка 1256

Var
 s,s1:string;
begin
readln(s);
if (s[1]='в') and (s[2]=' ') then
 begin
  delete(s,1,1);
  s:='на'+s;
 end;
if (s[1]='В') and (s[2]=' ') then
 begin
  delete(s,1,1);
  s:='На'+s;
 end;
while pos(' в ',s)<>0 do
 begin
  if (s[1]='в') and (s[2]=' ') then
 begin
  delete(s,1,1);
  s:='на'+s;
 end;if (s[1]='В') and (s[2]=' ') then
 begin
  delete(s,1,1);
  s:='На'+s;
 end;
  s1:=s1+copy(s,1,pos(' в ',s)-1)+' на ';
  delete(s,1,pos(' в ',s)+2);
 end;
  if (s[1]='в') and (s[2]=' ') then
 begin
  delete(s,1,1);
  s:='на'+s;
 end;
if (s[1]='В') and (s[2]=' ') then
 begin
  delete(s,1,1);
  s:='На'+s;
 end;
s:=s1+s;
writeln(s);
end.

Пример ввода 1:
запасти в зиму, приехать в год, приготовить в день, выпить лекарство в ночь
Пример вывода 1:
запасти на зиму, приехать на год, приготовить на день, выпить лекарство на ночь

Пример ввода 2(глубокие песни современной отечественной эстрады):
В в в в в в в в в в в в в в в в в в н.
Пример вывода 2:
На на на на на на на на на на на на на на на на на на н.

Какую операционную систему используешь? если Linux то:
1) g++ -c mprog.cpp -o mprog.o (-o "output" - файл вывода, -c означает "только компиляция", т.е. не связывать твой файл со сторонними билиотеками типа libc, получим просто файл с машинными командами особо ни к чему не привязанный ".o" - object file, если особо интересно, что же там лежит, можно вызвать "objdump -D mprog.o" либо g++ -S -masm=intel -O0 mprog.cpp, вывод будет в mprog.s)
2) g++ -c prog.cpp -o prog.o (то же самое)
3) g++ prog.o mprog.o -o prog (выполняем связывание двух обектных файлов между собой и со стандартными библиотеками, опять же новое содержимое можно посмотреть "objdump -D mprog")
4) ./prog - запустить твою программу и передать управление в начало функции main (и не важно, в каком файле она лежала, главное, чтобы была одна, хотя иначе шаг 3 выдаст ошибку)
Если винда, то запусти поиск по диску С "mingw32-g++.exe" и через командную строку вызывай для него
1) ...путь...\mingw32-g++.exe -c mprog.cpp -o mprog.o
2) ...путь...\mingw32-g++.exe -c prog.cpp -o prog.o
3) ...путь...\mingw32-g++.exe prog.o mprog.o -o prog.exe 
4) prog.exe