сделать через процедуру

[lilywka]

условие задачи: Удалить все буквы 'a'
надо сделать через процедуру.

program Project1;

{$APPTYPE CONSOLE}

uses
  SysUtils;

var
  c:string;
  k,i:integer;
begin
  Writeln('Input string:');
  readln(c);
  k:=1;
  for i:=1 to Length(c) do
  if c[i]<>'a' then
  begin c[k]:=c[i];inc(k);
  end;
  for i:=k to Length(C) do c[i]:=' ';
  Writeln(c);
  readln;
  { TODO -oUser -cConsole Main : Insert code here }
end.

[Serge_Bliznykov]

код Вы взяли из нужной темы (автор кода (c) Stilet )

а в чём проблема написать процедуру?!
начало может быть, например, такое:

procedure RemoveLetterA(var c : string);
var k,i : integer;
begin
...

[lilywka]

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

код Вы взяли из нужной темы (автор кода (c) Stilet )

а в чём проблема написать процедуру?!
начало может быть, например, такое:

procedure RemoveLetterA(var c : string);
var k,i : integer;
begin
...

да, мне надо эту программу теперь переделать на процедуру

вот я сделала, но у меня не хочет выводить теперь на экране. сразу окно исчезает

program Project1;

{$APPTYPE CONSOLE}

uses
  SysUtils;
procedure Delate ( var c:string);
var
  k,i:integer;
begin
  Writeln('Input string:');
  readln(c);
  k:=1;
  for i:=1 to Length(c) do
  if c[i]<>'a' then
  begin c[k]:=c[i];inc(k);
  end;
  for i:=k to Length(C) do c[i]:=' ';
  Writeln(c);
  readln;

  end;
  { TODO -oUser -cConsole Main : Insert code here }
end.

[Serge_Bliznykov]

не, нужно не так..
программа должна быть такая:

program Project1;

{$APPTYPE CONSOLE}

uses
  SysUtils;

procedure RemoveLetterA(var c : string);
var k,i : integer;
begin
   < ТУТ ПОМЕСТИТЕ НУЖНЫЙ КОД по удалению из строки С символов 'a' >
end;

var sInp :  string;
begin
   Writeln('Input string:');
   readln(sInp);

   RemoveLetterA( sInp );

   WriteLn('Result string: ', sInp);

   Readln {это чтобы окно консольное сразу не закрылось!}
end.

это целиком программа. Допишите сюда правильную процедуру. и задача решена!

[lilywka]

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

не, нужно не так..
программа должна быть такая:
...
это целиком программа. Допишите сюда правильную процедуру. и задача решена!

спасибо за помощь))



Не цитируйте, пожалуйста, сверх того, что Вам необходимо при ответе

Модератор