Перевод программы из Паскаля в Delphi

[GoldSieg]

Всем доброго времени суток.
необходимо переделать код программы написанный в Паскале. в Делфи.

собственно сам код.

//Uses crt;
type
  spisok = ^s;
  s = record
    num: integer;
    next: spisok;
  end;

procedure adding(var l1, l2: spisok);
var
  t, y1, y2, t2: spisok;
begin
  new(y1);
  new(y2);
  y2 := l2;
  y1 := nil;
  while l2 <> nil do
  begin
    new(t);
    t^.num := l2^.num;
    t^.next := y1;
    y1 := t;
    l2 := l2^.next;
  end;
  l2 := y2;
  while y1 <> nil do
  begin
    new(t2);
    t2^.num := y1^.num;
    t2^.next := l1;
    l1 := t2;
    
    y1 := y1^.next;
    
  end;
  while l1 <> nil do
  begin
    write(l1^.num:3);
    l1 := l1^.next;
  end;
end;

var
  i: integer;
  s1, s2, x, y, vs1, vs2: spisok;

begin
  //clrscr;
  randomize;
  for i := 1 to 10 do
  begin
    if i = 1 then
    begin
      
      new(s1);
      s1^.next := nil;
      s1^.num := random(20) + 20;
      new(s2);
      s2^.next := nil;
      s2^.num := random(20) - 20;
      
    end
    else
    begin
      new(x);
      x^.num := random(20) + 20;
      x^.next := s1;
      s1 := x;
      
      new(y);
      y^.num := random(20) - 20;
      y^.next := s2;
      s2 := y;
      
    end;
  end;
  vs1 := s1;
  while s1 <> nil do
  begin
    write(s1^.num:3);
    s1 := s1^.next;
  end;
  
  writeln;
  vs2 := s2;
  while s2 <> nil do
  begin
    write(s2^.num:3);
    s2 := s2^.next;
  end;
  writeln;
  writeln;
  adding(vs1, vs2);
  vs1 := nil;
  vs2 := nil;
  //readkey;
end.

и еще интересует вопрос. существуют ли такие программы перевода кодов.???

[Hacker19_90]

А вы собственно компилировать пробовали?
Ибо с вашими коментами должно работать!

[Человек_Борща]

и еще интересует вопрос. существуют ли такие программы перевода кодов.???

"Head, Brains & Hands" - очень хорошая программа! Поищи в гугле!

randomize нужно вызывать 1 раз при запуске программы.

[Serge_Bliznykov]

Сообщение от Человек_Борща

randomize нужно вызывать 1 раз при запуске программы.

Человек_Борща, это Вы к чему? Нет, я с утверждением, безусловно согласен. но тут и так вызывается ОДИН раз...


GoldSieg,
а по сути, Hacker19_90 абсолютно прав. у Вас уже готовый код!

Достаточно создать консольное приложение (ну или, что тоже самое, указать в начале программы соответствующую директиву:

program Project1;

{$APPTYPE CONSOLE}

ну и перед финальным end. вставить Readln; (что бы не закрывалось консольное окно сразу)

как программа сразу станет "кодом под Delphi"!