Перевести из паскаля на делфи

[serega55]

Program Pr1;
Var Name: String;
BEGIN
Write('Как тебя зовут ? ');
ReadLn(Name);
WriteLn('Привет, ', Name, '!');
ReadLn
END.


И ещё одна:
Program Pr2;
uses Crt;
const rz=[','];
var s,s1:string;
a:array[1..100] of string[20];
buf:string[20];
i,k,p:byte;
begin
clrscr;
writeln('Введите строку из слов, разделенных запятыми:');
readln(s);
for i:=1 to length(s) do
if s[i] in rz then s[i]:=',';
while pos(',,',s)>0 do delete(s,pos(',,',s),1);
if s[length(s)]=',' then delete(s,length(s),1);
k:=1;
for i:=1 to length(s) do
if s[i]=',' then k:=k+1
else a[k]:=a[k]+s[i];
for i:=k downto 1 do
write(a[i],' ');
readln
end.

[Arigato]

Да чего тут переводить, если Делфи - это не язык, а среда. Язык Object Pascal, но в данном случае код на Object Pascal от кода на Pascal ничем отличаться не будет, только подключение юнита Crt надо убрать и, естественно, clrscr.

[serega55]

Arigato, я просто не особо в этом шарю...

Ну первая будет так тогда:

program Project1;

{$APPTYPE CONSOLE}

uses
SysUtils;
Var Name: String;
begin
{ TODO -oUser -cConsole Main : Insert code here }
Write('Как тебя зовут ? ');
ReadLn(Name);
WriteLn('Привет, ', Name, '!');
ReadLn;
end.

А вторая???

[Mad_Cat]

А вторая???

delphi xe2

program Project1;
{$APPTYPE CONSOLE}
{$R *.res}
uses
  System.SysUtils;
const rz=[','];
var s,s1:string;
a:array[1..100] of string[20];
buf:string[20];
i,k,p:byte;
begin
writeln('Введите строку из слов, разделенных запятыми:');
readln(s);
for i:=1 to length(s) do
if s[i] in rz then s[i]:=',';
while pos(',,',s)>0 do delete(s,pos(',,',s),1);
if s[length(s)]=',' then delete(s,length(s),1);
k:=1;
for i:=1 to length(s) do
if s[i]=',' then k:=k+1
else a[k]:=a[k]+s[i];
for i:=k downto 1 do
write(a[i],' ');
readln
end.