(Pascal) Zadanie domowe

[kitin]

Witam wszystkich serdecznie, mam do zrobienia zadanie domowe na metodologię programowania w Pascal'u. Oto jego treść:

Z wykorzystaniem funkcji pos i delete, napisz program, który:
a) odczyta od użytkownika ciąg znaków
b) skasuje wszystkie litery 'a' z wyrazu podanego przez użytkownika
c) postarać zrobić się to zadanie bez funkcji pos i delete

Z góry dziękuję z pomoc, pozdrawiam.

[leggo]

1. Pobierasz ciąg znaków od użytkownika.
2. W pętli wykonujesz:
[CODE]
Delete(tekst, Pos('a', tekst), 1);
[/CODE]
3. Pętle kończysz gdy funkcja pos zwróci [b]0[/b].

Sposobem na zrobienie tego bez tych funkcji może być przepisywanie kolejnych znaków do drugiego łańcucha z pominięciem litery [b]a[/b].

[kitin]

Pascal'a zbytnio nie ogarniam, dlatego pytanie brzmi czy mógłbyś napisać mi kod tego programu? Byłbym bardzo wdzięczny

[leggo]

[CODE]
Program nowy;
uses crt;
var
x :integer;
tekst :string;
begin
clrscr;
write('Podaj tekst: ');
readln(tekst);
repeat
x:=Pos('a', tekst);
Delete(tekst, x, 1);
until x=0;
writeln(tekst);
readln();
end.
[/CODE]

[kitin]

Bardzo dziękuję za pomoc, pozdrawiam