Обработка строк:определение длины строки

[DidT33rus]

1. Ввести с клавиатуры строку символов. Признак окончания ввода строки - нажатие клавиши "Ввод".Программа должна определить длину введенной строки L, и, если длина L=10 то удаляются все A...Z.
2. Дана строка. Преобразовать ее, повторив каждый символ, отличный от " * ".

[SERG1980]

Язык то какой?

[DidT33rus]

в паскале...а строчку вводить все равно какую , какую душе угодно..

[Grag]

readln(Line);
if Length(Line)=10 then
  begin
    {а тут удаляй все что душе угодно}
  end

[Куралай_]

var Len_L:integer;
...
Len_L=Length(L);
if Len_L=10 then ... удаляешь
Если удаляешь с экрана, то к примеру Edit1.clear;

[Grag]

Сообщение от Куралай_

var Len_L:integer;
...
Len_L=Length(L);
if Len_L=10 then ... удаляешь
Если удаляешь с экрана, то к примеру Edit1.clear;

Нафига Len_l:integer???? В Паскале string максимум 255 байт, достаточно Len_L:byte; Да и зачем для длины строки задавать отдельную переменную??? Да и где же в Паскале взять Edit1.clear

[SERG1980]

вторая задача тоже очень простая, ну как земляку напишу

uses crt;
var i:integer;
    s,s1:string;
BEGIN
 ClrScr;
 s:='';
 s1:='';
 WriteLn('Vvedite stroky!');
 ReadLn(s);
 for i:=1 to length(s) do
 begin
  s1:=s1+s[i];
  if s[i]<>'*'then s1:=s1+s[i];
 end;
 WriteLn(s1);
 ReadLn;
END.