Нужно перевести задачу с Си на Паскаль

[T_D]

#include<iostream>
#include<string>
#include<cstring>
using namespace std;

const int N = 1000100;
int n, k, cc;
int first[N], next_1[N], vol[N];

void add (int vertex, int to)
{
 if (first[vertex] == -1)
 {
 first[vertex] = cc;
 next_1[cc] = -1;
 vol[cc] = to;
 }
 else
 {
 vol[cc] = to;
 next_1[cc] = first[vertex];
 first[vertex] = cc;
 }

 cc++;
}

int main()
{
 //freopen("input.txt", "r", stdin); freopen("output.txt", "w", stdout);

 for (int i = 0; i < N; i++)
 first[i] = next_1[i] = -1;

 scanf("%d%d\n", &n, &k);
 for (int i = 0; i < k; i++)
 {
 string str;
 getline(cin, str);
 int cmd, v1, v2;
 int h = sscanf(str.c_str(), "%d%d%d", &cmd, &v1, &v2);
 if (h == 3)
 {
 add(v1, v2);
 add(v2, v1);
 }
 else
 {
 for (int i = first[v1]; i != -1; i = next_1[i])
 printf("%d ", vol[i]);
 printf("\n");
 }
 }

 return 0;
}

Зарание спасибо!