Помогите переделать прогу с Паскаля на Си, с Паскаля на Си Опции

[Kulini4]

Помогите переделать лабу с Паскаля на Си, а то Си я не очень шарю, но только не на С++!

Вот сам листинг:
-------------------------------------------------------------------------------------------------------------------
Program AndrKros;
Procedure probel(n:byte);
var
i:byte;
begin
for i:=1 to n do
write(' ')
end; {probel}

var
s1,s2:string;
i,j,k:byte;
error:boolean;
begin
writeln('type first word');
readln(s1);
writeln('type second word');
readln(s2);
error:=true;
for i:=1 to length(s1) do
begin
{naxodim s1[i] v s2}
for j:=1 to length(s2) do
begin
if s1[i]=s2[j] then
begin
error:=false;
{vivodim slova}
writeln;
for k:=1 to j-1 do
begin
probel(i-1);
writeln(s2[k])
end;
writeln(s1);
for k:=j+1 to length(s2) do
begin
probel(i-1);
writeln(s2[k])
end;
writeln
end {s1[i]=s2[j]}
end {for j}
end; {for i}
if error then
writeln('Net odinakovix bykv');
readln
end.

А задание было такое:

З двох заданих із клавіатури слів скласти різні види кросвордів. При неможливості скласти кросворд (у введених словах немає ні однієї однакової букви) надрукувати повідомлення про помилку.
Можливі символи – прописні рос. букви.
Приклад виконання проги:

Введите два слова, разделённых пробелом:

КАРАБАС БАРАБАС

Кросворд 1:


Б
КАРАБАС
Р
А
Б
А
С

Кросворд……:

Б
А
Р
А
Б
КАРАБАС
С





Пожалуйста помогите, кто шарит

[dimich]

#include <iostream.h>
#include <conio.h>
#include <string.h>

void probel(int n)
{
    for(int i = 1;i<=n;i++)
    cout<<" ";
}

int main()
{
    char* s1, s2;
    s1 = new char[100];
    s2 = new char[100];
    cout<<"type first word";
    cin>>s1;
    cout<<"type second word";
    cin>>s2;
    int error = 1;
    for(int i = 1;i<=strlen(s1);i++)
    {
        for(int j = 1;j<=strlen(s2);j++)
        {
            error = 0;
            //vivodim slova
            getch();
            for(int k = 1;k<=j-1;k++)
            {
                probel(i-1);
                cout<<s2[k];
                getch();
            }
            cout<<s1;
            for(k = j+1;k<=length(s2);k++)
            {
                probel(i-1);
                cout<<s2[k];
                getch();
            }
            //не понял к чему в коде writeln
        }
    }
    
    if(error = 1)
    {
        cout<<"net odinakovyh bukv";
    }
    getch();
    delete s1;
    delete s2;
    return 0;
}
        

чето типа того

[Kulini4]

Спасибо, что отозвался!
Выручил!!! +1