Witam, mam spory problem z programem, niestety nie działa on tak jak powinien, a potrzebuję tego jak najszybciej, ponieważ dostałem program do poćwiczenia sobie w domu na sprawdzian, ale niestety coś mi to nie wychodzi, oto treść tego zadania:
"Dany jest plik tekstowy zawierający słowa oddzielone spacją, przecinkiem lub kropką. Napisz program, który wyszukuje w (tym pliku tekstowym) wyrazy rozpoczynające się i kończące tą samą literą i zapisuje je do pliku wynikowego."
A tu daję plik, który próbowałem stworzyć:
program program1;
var
plik,plik2:text;
wiersz:string;
begin
assign(plik, 'C:\plik1.txt');
reset(plik);
assign(plik1, 'C:\plik2.txt');
rewrite(plik1);
while not eof(plik) do begin
readln(plik,wiersz);
if (wiersz[length(wiersz)]=" " and (wiersz[length(wiersz)]=" " then
writeln(plik1,wiersz);
end;
close(plik);
close(plik1);
end.
Bardzo proszę o ile to możliwe o szybką odpowiedź, bo ten sprawdzian mam już jutro, a chciałbym go jakoś sensownie napisać, zwłaszcza, że zbliża się koniec roku. Prosiłbym także o napisanie kodu, żebym mógł go sobie tylko przeanalizować.
Z góry bardzo dziękuję i pozdrawiam :)