цикл for паскаль

[StudentSAFU]

Вывести на экран все четырехзначные числа, у которых первая и последняя цифры равны, а также их количество и сумму.

program funkcia656var;
{$APPTYPE CONSOLE}
uses
  SysUtils;
var i,j,k,l,n:longint;
  begin
for i:=1 to 9 do
for j:=0 to 9 do
for k:=0 to 9 do
for l:=0 to 9 do
  begin
n:=1000*i+100*j+10*k+l;
if i=l then
begin
write(n,'   ');
end;
end;
readln;
end.

1)как дальше сумму найти?
2)соответственно количество чисел?

[Hacker19_90]

1)как дальше сумму найти?
2)соответственно их количество.

program funkcia656var;
{$APPTYPE CONSOLE}
uses
    SysUtils;
var 
    i, sum, count: longint;
begin
    sum := 0;
    count := 0;
    for i:=1000 to 9999 do
    if (i div 1000) = (i mod 10) then
    begin
          write(i,' ');
          inc(count);
          sum := sum+i;
    end;
    Writeln;
    Writeln (sum);
    Writeln (count);
    readln;
end.