Przetłumaczenie kodu z C++ na pascala

#include <iostream>
#include <windows.h>
using namespace std;
int przedmioty, studenty, maks, bufor, roznica;
string nazwisko;
string tabelka[100][100];
int main()
{
    cout << "Podaj ilosc przedmiotow" << endl;
    cin>>przedmioty;
    system("cls");
    for(int i=1;i<=przedmioty;i++)
    {
        cout<<"Podaj nazwe "<<i<<" przedmiotu "<<endl;
        cin>>tabelka[0][i];
        system("cls");
    }
     cout << "Podaj ilosc uczniow" << endl;
    cin>>studenty;
    system("cls");
    for(int i=1;i<=studenty;i++)
    {
        cout<<"Podaj imie i nazwisko "<<i<<" ucznia "<<endl;
        cout<<"Imie: ";
        cin>>tabelka[i][0];
        tabelka[i][0]+=" ";
        cout<<"Nazwisko: ";
        cin>>nazwisko;
        tabelka[i][0]+=nazwisko;
        system("cls");
    }

    for(int x=1;x<=przedmioty;x++)
    {
        for(int y=1;y<=studenty;y++)
        {
            cout<<"Co dostal "<<tabelka[y][0]<<" z "<<tabelka[0][x]<<endl;
            cin>>tabelka[y][x];
            system("cls");
        }
    }

    for(int x=0;x<=przedmioty;x++)
    {
        for(int y=0;y<=studenty;y++)
    {
        bufor=tabelka[y][x].length();
        if(maks<bufor) maks=bufor;
    }
       for(int y=0;y<=studenty;y++)
    {
        bufor=tabelka[y][x].length();
        roznica=maks-bufor;
        for(int z=0;z<roznica;z++)
        {
            tabelka[y][x]+=" ";
        }

    }
maks=0;
    }

        for(int x=0;x<=studenty;x++)
    {
        for(int y=0;y<=przedmioty;y++)
        {
            cout<<tabelka[x][y]<<"  ";
        }
        cout<<endl<<endl;
    }
system("pause");
    return 0;
}

int /**/, studenty, /**/;

Uses Crt;
var
prdzmiotyn, studenty, maks, bufor, roznica:integer;
nazwisko:string;
tabelka:array [0..100,0..100] of string;
Begin
WriteLn('Podaj ilosc przedmiotow');
read(przedmioty);
 ClearScreen;
for i:=0 to przedmioty do
Begin
WriteLn('podaj nazwe ', i,' przedmiotu');
read(tabelka[0][i]);
 ClearScreen;
end;
WriteLn('podaj il. uczniow');
read(studenty);
 ClearScreen;
for i:=1 to studenty do
Begin
WriteLn('podaj immie i nazwisko ',i, ' ucznia');
WriteLn('Imie: ');
read(tabelka[i][0]);
tabelka[i][0]:=tabelka[i][0]+' ';
read(nazwisko);
tabelka[i][0]:=tabelka[i][0]+nazwisko;
 ClearScreen;
end;

program dziennik;
Uses Crt;
var:
prdzmioty, studenty, maks, bufor, roznica:integer;
nazwisko:string;
tabelka:array [0..100] of array [0..100] of integer;
Begin
writeln('Podaj ilosc przedmiotow');
readl(przedmioty);
 Clrscr;
for i:=0 to przedmioty do
Begin
writeln('Podaj nazwe ', i,' przedmiotu');
readln(tabelka[0][i]);
 Clrscr;
end;
writeln('podaj ilosc uczniow');
readln(studenty);
clrscr;
for i:=1 to studenty do
Begin
writeln('podaj immie i nazwisko ',i,' ucznia');
writeln('Imie: ');
readln(tabelka[i][0]);
tabelka[i][0]:=tabelka[i][0]+' ';
readlm(nazwisko);
tabelka[i][0]:=tabelka[i][0]+nazwisko;
clrscr;
end;
begin
    for x=1 to przedmioty do
    begin
        for y=1 to studenty do
        begin
            writeln('Co dostal ',tabelka[y][0],' z ',tabelka[0][x]);
            readln([y][x]);
            clrscr;
        end;
    end;
 
    for x=0 to przedmioty do
    begin
        for y=0; to studenty do 
    begin
        bufor=tabelka[y][x].length();
        if(maks<bufor) maks=bufor;
    end;
       for y=0 to studenty do
    begin
        bufor=tabelka[y][x].length();
        roznica=maks-bufor;
        for z=0 to roznica do
        begin
            tabelka[y][x]+=" ";
        end;
 
    end;
max=0;
    end;
 
        for x=0 to studenty do
    begin
        for y=0 to przedmiotydo
        begin
            readln(tabelka[x][y]"  ");
        end;
        end.

 readln([y][x]);

program dziennik;
Uses Crt;
var
prdzmioty, studenty, maks, bufor, roznica,x,y,z,i:integer;
nazwisko:string;
tabelka:array [0..99] of array [0..99] of integer;
Begin
writeln('Podaj ilosc przedmiotow');
readln(przedmioty);
 Clrscr;
for i:=0 to przedmioty do
Begin
writeln('Podaj nazwe ', i,' przedmiotu');
readln(tabelka[0][i]);
 Clrscr;
end;
writeln('podaj ilosc uczniow');
readln(studenty);
clrscr;
for i:=1 to studenty do
Begin
writeln('podaj immie i nazwisko ',i,' ucznia');
writeln('Imie: ');
readln(tabelka[i][0]);
tabelka[i][0]:=tabelka[i][0]+' ';
readln(nazwisko);
tabelka[i][0]:=tabelka[i][0]+nazwisko;
clrscr;
end;
begin
    for x:=1 to przedmioty do
    begin
        for y:=1 to studenty do
        begin
            writeln('Co dostal ',tabelka[y][0],' z ',tabelka[0][x]);
            readln([y][x]);
            clrscr;
        end;
    end;

    for x:=0 to przedmioty do
    begin
        for y:=0; to studenty do
    begin
        bufor=tabelka[y][x].length();
        if (maks<bufor) maks=bufor;
    end;
       for y:=0 to studenty do
    begin
        bufor=tabelka[y][x].length();
        roznica=maks-bufor;
        for z:=0 to roznica do
        begin
            tabelka[y][x]+' ';
        end;

    end;
max:=0;
    end;

        for x:=0 to studenty do
    begin
        for y:=0 to przedmiotydo
        begin
            readln(tabelka[x][y]'  ');
        end;
        end.

readln(przedmioty);

for i:=0 to przedmioty do

tabelka[i][0]:=tabelka[i][0]+' ';

tabelka[i][0]:=tabelka[i][0]+nazwisko;

for x:=1 to przedmioty do

readln([y][x]);

var
prdzmioty, 

tabelka:array [0..99] of array [0..99]

tabelka:array [0..99, 0..99]

tabelka[i][0]:=tabelka[i][0]+nazwisko;
clrscr;
end;
begin // błąd
    for x:=1 to przedmioty do

bufor=tabelka[y][x].length();