Поморфемно запишите слова: Дровя(н,нн)ой , слома(н,нн)ые, пиле(н,нн)ы,рубле(н,нн)ы,повале(н,нн)ы,поде(н,нн)о,стеса(н,нн)о,сложе(н,нн)ы,в поле(н,нн)ицу,навале(н,нн)ы ,повале(н,нн)ые, уничтоже(н,нн)ый, утопле(н,нн)ые, оси(н,нн)овые.
   Проведите морфологический разбор слов: наколотые, воткнуты, какой-то, своих.

в чем ошибка? сразу выделяет вторую строку и пишет ошибку declaration expected but identifier 's' found

я уже весь интернет облазила, но не понимаю, в чем суть ошибки

uses
  SysUtils;
  s,k,n:integer;
begin

 writeln('vvedite n');
 readln(n);
 s:=0;
 k:=1;
 for i:=1 to n do
  s:=i*(sqr*k);
  i:=i+1;
  writeln('s=',s:4:3);
  { TODO -oUser -cConsole Main : Insert code here }
end

После специального ухода за кустами садовод с 6 кустов смородины получил такой же урожай, как прежде с 8 кустов. На сколько процентов повысилась урожайность кустов? (Ответ округлите до едениц)
СПасибо большое кто поможет)