Двумерные массивы Опции

[ganibal]

Здраствуйте.
Вообщем вот задача, пожалуйста, у кого какие мысли есть:

Пусть дана последовательность, содержащая от 2 до 30 слов, в каждом из которых от 2 до 10 строчных латинских букв; между соседними словами - не менее одного пробела, за последним словом-точка. Напечатайте все слова, отличные от первого слова, предварительно удалив из каждого слова все предыдущие вхождения последней буквы.

Сообщение отредактировано: ganibal - 14.12.2009 21:12

[ganibal]

Вот написал прогу, но она не работает, вот где не пойму.

 program mass_3366;

{$APPTYPE CONSOLE}

uses
  SysUtils;
 const n=10;
	   m=10;
 type
	  bukvy=array[1..m] of char;
	  slova=array[1..n] of bukvy;
 var x:slova;
	 l,i,j:integer;
	 b,k:char;
	 found,ok:boolean;
begin
  i:=1;
  read(b);
  while b<>'.' do
	 begin
	   j:=1;
	   while (b=' ') and (b<>'.') do
		   read(b);
	   if b<>'.' then
		 while (b<>' ') and (b<>'.') do
		  begin
		   if (b>='a') and (b<='z') then
			  begin
				x[i,j]:=b;
				j:=j+1
			  end
			 else
			  writeln('owibka vvoda');
		   read(b);
		  end;
	   if b<>'.' then
		 begin
		   if j<m then
			  for j := j to m do
				x[i,j]:=' ';
		   i:=i+1
		 end
		   else
			begin
			  for j:= j to m do
				x[i,j]:=' ';
			  for i:=i to n do
				for j:= 1 to m do
				   x[i,j]:=' '
			end;
	 end;
  for i:=1 to n do
	 begin
	   j:=m;
	   found:=false;
	   while (j>=1) and not found do
		if x[i,j]<>' ' then
		  begin
			l:=j;
			found:=true
		  end
		 else j:=j-1;
	   while (j<l) and found do
		begin
		  if x[i,j]=x[i,l] then x[i,j]:=' ';
		  if x[i,j]<>' ' then writeln(x[i,j]);
		end;
	   write
	 end;
readln;
readln;
end.

Сообщение отредактировано: ganibal - 22.12.2009 20:55