Перевод кода с Си - Turbo Pascal (34006)

Формулировка задачи:

Помогите,пожалуйста,перевести с С на Паскаль..

#include <malloc.h>
#include <stdio.h>
 
struct tagStack{
  double data;
  struct tagStack *prev;
}*stack=0;
 
void push(double d){
 struct tagStack* s;
  s=malloc(sizeof(struct tagStack));
  s->prev=stack;
  s->data=d;
  stack=s;
}
void pop(){
  struct tagStack* tmp;
  fprintf(stdout, "%g\n", stack->data);
  tmp=stack;
  stack=stack->prev;
  free(tmp);
}
int main(){
  double x;
  for(x=0.0; x<1000.1; x+=0.1)
                            push(x); 
  while(stack!=0)
                 pop();
  return 0;
}

Решение задачи: «Перевод кода с Си»

Листинг программы

type
  PNode=^TNode;  //объявление новых типов данных
  TNode=record
    prev: PNode;
    data: double;
  end;
 
var
  top: PNode;
 
procedure push(d: double);
var
  p: PNode;
begin
  New(p);       //выделение памяти
  p^.prev:=top; //сохранение адреса вершины стека
  top:=p;       //присвоение вершине стека адреса нового элемента
  p^.data:=d;
end;
function pop: double;
var
  p: PNode;        //объявление временной переменной
begin
  pop:=top^.data;
  p:=top;          //сохранение адреса вершины стека
  top:=top^.prev;  //присвоение вершине стека адреса предыдущего элемента
  Dispose(p);      //освобождение памяти
end;
 
var
  i: integer;
begin
  top:=nil;  //инициализация глоб.переменной нулевым указателем
  for i:=0 to 1000 do push(i*0.1);     //выполнение 1000 вставок в стек
  while top<>nil do WriteLn(pop:8:1);  //выталкивание всего содержимого стека
end.

Объяснение кода листинга программы

Создание типа данных PNode, который является указателем на структуру TNode.
Объявление переменной top типа PNode, которая будет представлять вершину стека.
Объявление переменной p типа PNode, которая будет использоваться как временная переменная при вызове функции push.
Функция push принимает аргумент d типа double и выполняет следующие действия:
- Выделяет память с помощью оператора New.
- Сохраняет адрес вершины стека в переменной p^.prev.
- Присваивает вершине стека адрес нового элемента с помощью оператора top:=p.
- Сохраняет значение d в поле data структуры TNode, которую представляет переменная p^.
Объявление переменной i типа integer.
Цикл for, который выполняется 1000 раз и каждый раз вызывает функцию push, передавая ей значение i*0.1. Это приводит к вставке 1000 элементов в стек.
Вызов функции pop, которая возвращает значение из стека и освобождает память, выделенную для вершины стека.
Вызов функции WriteLn, которая выводит значение, выталкиваемое из стека. Этот шаг выводит значения из стека по одному до тех пор, пока в стеке не останется ни одного элемента.