Написать программу, вычеркивающую из данного текста все буквы «л» — Pascal(Паскаль)

program NoL;
Var temp,txt,Newtxt:string;i:integer;
BEGIN
writeln('Vvedite Stroky');
readln(txt);
for i:=1 to length(txt) do
begin
 temp:=copy(txt,i,1);
 if temp <> 'л' then Newtxt:=Newtxt+temp;
end;
writeln('New=',NewTxt);
readln;
END.

var
    i:integer;
    s:string;
begin
    readln(s);
    for i:=length(s) downto 1 do
    if s[i]='l' then delete(s,i,1);
    writeln('Результат: ',s);
end.