Перевод с С++ на Pascal

#include <iostream>
#include "math.h"
#include <iostream>
#include <cmath>
#include <time.h>
#include <cstdlib>
#include <iomanip>
using namespace std;
struct str_rgr{
    double info1;
    double info2;
    unsigned int info3;
    str_rgr *next;
};
 
str_rgr *first, *last, *current;
int created = 0;
int counter = 0;
double A[25];
double B[25];
unsigned int C[25];
 
void create(str_rgr **beg, int num){
    current = new str_rgr;
    *beg = current;
    current->info1 = rand()%200-100+0.01*(rand()%99);
    current->info2 = rand()%200-100+0.01*(rand()%99);
    current->info3 = rand()%100;
    for(int i=1;i<num;i++){
    current->next = new str_rgr;
    current = current->next;
    current->info1 = rand()%200-100+0.01*(rand()%99);
    current->info2 = rand()%200-100+0.01*(rand()%99);
    current->info3 = rand()%100;
    }
    last = current;
    current->next = *beg;
    created = 1;
    counter = num;
    cout<<"---------------\nСписок створений\n---------------\n\n";
}
 
void output(str_rgr *beg){
    int i=1;
    if (created==0)
    cout<<"-----------------------\nCпочатку створiть список\n-----------------------\n\n";
    else{
    cout<<"№ записи\t   Данi 1-го поля\t   Данi 2-го поля\tДанные 3-го поля";
    cout<<"--------\t----------------\t----------------\t----------------";
    current = beg;
    counter=0;
    do{
    cout<<setw(5)<<i++<<setw(21)<<current->info1<<setw(25)<<current->info2<<setw(25)<<current->info3<<"\n";
    current = current->next;
    counter++;
    }
    while (current != beg);
    cout<<"--------\t----------------\t----------------\t----------------\n\n";
    }}
void output_someone(str_rgr *beg){
    int i=1;
    int out_some;
    if (created==0)
    cout<<"-----------------------\nCпочатку створiть список\n-----------------------\n\n";
    else{
    cout<<"Введiть номер елемента для виводу >>> ";
    cin>>out_some;
    cout<<endl;
    if(out_some>counter){
    cout<<"---------------------------------------\n";
    cout<<"Елемент з таким номером вже iснує!\n";
    cout<<"---------------------------------------\n\n";
    }
    else {
    current = beg;
    for(int i=0;i<out_some-1;i++)
    current=current->next;
    cout<<"№ записи\t   Данi 1-го поля\t   Данi 2-го поля\tДанные 3-го поля";
    cout<<"--------\t----------------\t----------------\t----------------";
    cout<<setw(5)<<out_some<<setw(21)<<current->info1<<setw(25)<<current->info2<<setw(25)<<current->info3<<"\n";
    cout<<"--------\t----------------\t----------------\t----------------\n\n";
    }}}
void del(str_rgr *beg){
    str_rgr *temp;
    int del_pos;
    if (created==0)
    cout<<"-----------------------\nCпочатку створiть список\n-----------------------\n\n";
    else{
    cout<<"Введiть номер елемента для його видалення >>> ";
    cin>>del_pos;
    cout<<endl;
    if(del_pos>counter){
    cout<<"---------------------------------------\n";
    cout<<"Елемента з таким номером не iснує!\n";
    cout<<"---------------------------------------\n\n";}
    else{
    current=beg;
    if (del_pos==1){
    temp=beg->next;
    delete beg;
    first=temp;
    last->next=first;
    cout<<"-----------------------------";
    cout<<"\nВидалений елемент пiд номером "<<del_pos;
    cout<<"\n----------- -----------------\n\n";
    }
    else{
    for(int i=0;i<del_pos-2;i++)
    current=current->next;
    temp=current->next->next;
    delete current->next;
    current->next = temp;
    cout<<"-----------------------------";
    cout<<"\nВидалений елемент пiд номером "<<del_pos;
    cout<<"\n----------- -----------------\n\n";
    }
    counter--;
    if (counter==0)
    created=0;
    }}}
void add(str_rgr *beg){
    str_rgr *temp;
    int add_pos;
    if (created==0)
    cout<<"-----------------------\nCпочатку створiть список\n-----------------------\n\n";
    else{
    cout<<"Введiть позицiю на яку добавить новий елемент >>> ";
    cin>>add_pos;
    cout<<endl;
    if(add_pos>counter+1){
    cout<<"-------------------------------------------\n";
    cout<<"Неможливо добавить елемент на цю позицiю!\n";
    cout<<"-------------------------------------------\n\n";}
    else{
    if (add_pos==1){
    current=last;
    temp=last->next;
    current->next=new str_rgr;
    current=current->next;
    current->info1 = rand()%200-100+0.01*(rand()%99);
    current->info2 = rand()%200-100+0.01*(rand()%99);
    current->info3 = rand()%100;
    current->next=temp;
    first=current;
    last->next=first;
    cout<<"------------------------------";
    cout<<"\nЕлемент добавлений на позицiю "<<add_pos;
    cout<<"\n------------------------------\n\n";
    }
    else{
    current = beg;
    for(int i=0;i<add_pos-2;i++)
    current=current->next;
    temp=current->next;
    current->next=new str_rgr;
    current=current->next;
    current->info1 = rand()%200-100+0.01*(rand()%99);
    current->info2 = rand()%200-100+0.01*(rand()%99);
    current->info3 = rand()%100;
    current->next=temp;
    cout<<"------------------------------";
    cout<<"\nЕлемент добавлений на позицiю "<<add_pos;
    cout<<"\n------------------------------\n\n";
    }
    counter++;
    }}}
 
void quick_sort(int left,int right){ 
    int i = left, j = right;
    double temp_info1,temp_info2;
    unsigned int temp_info3;
    double center = B[(left+right)/2]; 
    do {
    while (B[i] > center) i++; 
    while (B[j] < center) j--; 
    if (i <= j){ 
    temp_info1 = A[i];  temp_info2 = B[i];  temp_info3 = C[i];
    A[i] = A[j];  B[i] = B[j];  C[i] = C[j];
    A[j] = temp_info1;  B[j] = temp_info2;  C[j] = temp_info3;
    i++; j--;
    }}
    while (i <= j); 
    if (left < j) quick_sort(left, j);
    if (i < right) quick_sort(i, right); 
}
void sort_call(str_rgr *beg){
    int sort_buf=1;
    if (created==0)
    cout<<"-----------------------\nCпочатку створiть список\n-----------------------\n\n";
    else{
    current = beg;
    do{
    A[sort_buf] = current->info1;  B[sort_buf] = current->info2;  C[sort_buf] = current->info3;
    current = current->next;
    sort_buf++;
    }
    while (current != beg);
    quick_sort(1,counter);
    cout<<"------------------------------------\nВiдсортовано за 2 полем по зменшенню\n------------------------------------\n\n";
    current = beg;
    cout<<"№ записи\t   Данi 1-го поля\t   Данi 2-го поля\tДанные 3-го поля";
    cout<<"--------\t----------------\t----------------\t----------------";
    for(int sort_buf=1;sort_buf<=counter;sort_buf++){
    current->info2 = B[sort_buf];  current->info1 = A[sort_buf];  current->info3 = C[sort_buf];
    cout<<setw(5)<<sort_buf<<setw(21)<<current->info1<<setw(25)<<current->info2<<setw(25)<<current->info3<<"\n";
    current=current->next;
    }
    cout<<"--------\t----------------\t----------------\t----------------\n\n";
    }}
 
void bubble(str_rgr *beg){
    double temp_info1,temp_info2;
    unsigned int temp_info3;
    bool transposition;
    current = beg;
    int sort_buf=0;
    do{
    A[sort_buf] = current->info1;   B[sort_buf] = current->info2;   C[sort_buf] = current->info3;
    current = current->next;
    sort_buf++;
    } while (current != beg);
    for(int i=0;i<counter-1;i++){
    for(int j=0;j<counter-i-1;j++){
    if (C[j] < C[j+1]){ 
    temp_info1 = A[j];     temp_info2 = B[j];     temp_info3 = C[j];
    A[j] = A[j+1];   B[j] = B[j+1];   C[j] = C[j+1];
    A[j+1] = temp_info1;   B[j+1] = temp_info2;   C[j+1] = temp_info3;
    }}}
    current = beg;
    for(int sort_buf=0;sort_buf<=counter-1;sort_buf++){ 
    current->info1 = A[sort_buf];   current->info2 = B[sort_buf];   current->info3 = C[sort_buf];
    current = current->next;
    }
}
int round (double value)
{
   return (int) floor(value + 0.5);
}
void mblock(str_rgr *beg){
 
    unsigned int key;
    bool found;
    if (created==0)
    cout<<"-----------------------\nCтворiть спочатку список\n-----------------------\n\n";
    else{
    bubble(first);
    found = false;
    cout<<"Введiть ключ для пошука (3 поле) >>> ";
    cin>>key;
    cout<<endl;
    int bl_num = round(sqrt(counter)); 
    int i = 0;
    while (i < counter){
    if (C[i]==key){ 
    found = true;
    cout<<"--------------\n Елемент знайдено \n--------------\n\n";
    cout<<"№ записи\t   Данi 1-го поля\t   Данi 2-го поля\tДанные 3-го поля";
    cout<<"--------\t----------------\t----------------\t----------------";
    cout<<setw(5)<<i+1<<setw(21)<<A[i]<<setw(25)<<B[i]<<setw(25)<<C[i]<<"\n";
    cout<<"--------\t----------------\t----------------\t----------------\n\n";
    }
    if (C[i]>key) { 
    for(int j=i-1;j>=i-bl_num+1;j--){
    if (C[j]==key){
    found = true;
    cout<<"--------------\nЕлемент знайдено\n--------------\n\n";
    cout<<"№ записи\t   Данi 1-го поля\t   Данi 2-го поля\tДанные 3-го поля";
    cout<<"--------\t----------------\t----------------\t----------------";
    cout<<setw(5)<<j+1<<setw(21)<<A[j]<<setw(25)<<B[j]<<setw(25)<<C[j]<<"\n";
    cout<<"--------\t----------------\t----------------\t----------------\n\n";
    }}}
    i = i + bl_num;}
    if (found != true)
    cout<<"------------------\n Елемент не знайдено\n------------------\n\n";
}}
int main()
{
    srand(time_t(NULL));
    setlocale(LC_ALL, "Russian");
    int num = 7;
    int k;
    while(1){
    cout<<"1. Створення списка\n2. Виведення списка\n3. Виведення вибраного запису\n4. Добавить запись\n5. Удалить запись\n";
    cout<<"6. Отсортировать\n7. Поиск записи\n 0. Выход\nВиконав роботу студент 2 курсу Кисельов В.С. \n\nВыберите пункт меню >>> ";    cin>>k;
    cout<<endl;
    switch (k){
    case 1: create(&first, num); break;
    case 2: output(first); break;
    case 3: output_someone(first); break;
    case 4: add(first); break;
    case 5: del(first); break;
    case 6: sort_call(first); break;
    case 7: mblock(first); break;
    case 0: exit(1); break;
    default:
    cout<<"-------------------------------------\n";
    cout<<"Помилка! Виберiть номер зi списку. \n";
    cout<<"-------------------------------------\n\n"; break;
} }}