Из паскаля в делфи

[Berus]

var s:string;
i,m:integer;
buf:array[1..100] of string[50];
k,j:integer;
tmp:string;
f:byte;
begin
k:=0;
write('text:');
readln(s);
s:=s+' ';
for i:=1 to length(s) do
  if s[i]<>' ' then tmp:=tmp+s[i]
    else
      begin
        if tmp<>'' then
            begin k:=k+1;buf[k]:=tmp;tmp:='';end;
       end;
i:=1;
i:=1;
while i<=k do
 begin
  j:=i+1;
  while j<=k do
   begin
    if (buf[j]=buf[i]) and (length(buf[j]) mod 2 =1) then
     begin
      for m:=j to k-1 do
      buf[m]:=buf[m+1];
      k:=k-1;
      end
     else j:=j+1;
   end;
  i:=i+1;
 end;
 for i:=1 to k do
write (buf[i],' ');
writeln;
end.

___________
Код нужно оформлять по правилам:
тегом [CODE]..[/СODE]
(кнопочка на панели форматирования с решёточкой #)
Не забывайте об этом!

Модератор.

[Serge_Bliznykov]

допишите в начале программы

program Program911;

{$APPTYPE CONSOLE}

uses SysUtils;

сохраните полученный код в файл с именем Program911.dpr
будет у Вас консольная программа на Delphi.
Вопрос закрыт?

[Вадим Мошев]

................................... ......

[Berus]

Сообщение от Serge_Bliznykov

допишите в начале программы

program Program911;

{$APPTYPE CONSOLE}

uses SysUtils;

сохраните полученный код в файл с именем Program911.dpr
будет у Вас консольная программа на Delphi.
Вопрос закрыт?

Мне нужна не кансольная программа.. А оконная(

[Mad_Cat]

Мне нужна не кансольная программа.. А оконная(

и????

readln(s);

поменять на

s:=edit.text;

write (buf[i],' ');

поменять на

Memo.Lines.add(buf[i]);

и закинуть все в обработчик кнопки