Вычислить сумму 1^1+2^2+…+n^n — Pascal(Паскаль)

program prim1 ;
  uses crt;
  var n, к, y, i, s, m: integer;
begin
  clrscr;
  writeln ('n= k='); readln(n, k);
  s:=0;
  for i:=l to n do
    begin
      у:=1;
        for m:=l to i do
          begin
{Нахождение степени k числа i.}
            y: = y*i;
          end;
{Нахождение промежуточной суммы.}
      s:=s+y;
    end;
  writeln(' Ответ: ',s);
  readln;
end.