задача по теме Символьные данные Опции

[kvadrat]

Задан текст. Выкинуть из текста вхождения заданого символа.

Прочитал FAQ на эту тему и полюзуясь оператором

Delete(VAR s : String; start, len : Integer) - Удалает подстроку длиной len начиная с позиции start строки s

Решил эту задачу, но ничё некомпилируется, сам знаю задача лёгкая, но я вэтой теме чёто пока не шарю. Как надо исправить задачу чтоб компилировалась и работала правильно?

program ertfgsd;
var s:string[10];n:char;l:integer;
begin
l:=1;
writeln('vvedite stroky');
readln(s);
writeln('vvedite simvol kotorii nygno edalit');
readln(n);
delete(var s:string;n,l:integer);
writeln(s);
end.

[mind abuse]

В паскалевом хэлпе по функциям Pos и Delete программа почти написана)

Код

program ertfgsd;
uses crt;
var s:string[10];
n:char;
i:integer;
begin
clrscr;

writeln('vvedite stroky');
readln(s);
writeln('vvedite simvol kotorii nygno udalit');
readln(n);
while pos(n,s)>0 do
begin
delete(s,pos(n,s),1);  {<----- удаляем по одному символу}
end;
writeln(s);
readln;
end.

Сообщение отредактировано: mind abuse - 18.05.2008 22:38