Помогите конвертировать прогу с языка C++ на язык Паскаль плз

//int kol=1, sum=1, prev=1;
var kol,sum,prev:integer;
kol:=1; sum:=1; prev:=1;
//while (sum<1000) // Для 1000 зерен
while (sum<1000) do // Для 1000 зерен
//{
begin
//prev*=2;
prev:=prev*2;
//sum+=prev;
sum:=sum+prev;
//kol++;
kol:=kol+1;
//printf ("Cell %d, Zeren: %d, Vsego: %d\n", kol, prev, sum);
writeln ("Cell ", kol,", Zeren: ", prev,", Vsego: ", sum);
//}
end;