Двумерный массив (Pascal)

[loctar]

Двумерный массив МxN содержит некоторые буквы русского алфавита, расположенные в произвольном порядке. Написать программу, проверяющую можно ли из этих букв составить данное слово S.

 

const n=3; m=2;                                                               
Type Mas=array [1..n] of array[1..m] of char;                                 
procedure proverka (var a: mas; s: string);                                   
var i,j :integer;                                                             
h: integer;                                                                   
g: string;                                                                    
o: boolean;                                                                   
begin                                                                         
 g:= '';                                                                      
 for i:=1 to n do                                                             
 for j:= 1 to m do                                                            
 g:=g+ a[i,j];                                                                
                                                                              
 o:= true;                                                                    
 for h:= 1 to length(s) do                                                    
 begin                                                                        
  if Pos(s[h], g) >0 then                                                     
  Delete ( g, Pos(s[h], g),1)                                                 
  else                                                                        
  begin                                                                       
   o:= false ;  
    Break;
   end;
  end;
 If o=true then Writeln('Mojno')
 else writeln('nelza')
end;

стырил на каком то форуме код который идеально ,вроде бы, подходит мне он он был писан на делфи. а мне нужен паскаль, паскаль и дельф вроде довольно похожи , я немного изменил. но все равно не работает, помогите с проблемой пожалуста

[Stilet]

Двумерный массив МxN

Сам эту ахинею придумал, аль злобный препод издеваетсо?

[loctar]

все проверил ... все-таки препод) а что вас смущает? я просто в этом не рублю

[Serge_Bliznykov]

код, конечно, не идеален, и не без недочётов (можно придраться к тому, что массив переводится в строку и дальше используются функции/процедуры работы со строкой), но код вполне себе рабочий, я проверил, нормально работает.

Что не так? В чём, собственно, вопрос?!

[loctar]

выдает еррор 10 : Unexpected end of file. ... что только там не делал, ну тость , получается неправильно что то с end-ом менял "." на ";" у последнего , не помогает, не дает запустить прогу и все тут =((

[Mad_Cat]

а хде ввод слова, массива то?

[loctar]

... в каком смысле?( что касается программирования ,просьба, объяснять чуть ли не на пальцах ... я максимум с чем могу орудовать это if и for и то на уровне "детского сада")

[Mad_Cat]

... в каком смысле?

процедурка есть , а тела проги(с вводом исходных данных) йок!

я максимум с чем могу орудовать это if и for

вот for то вам и понадобится для ввода массивчика,ну а ввод строки вашпе уровень не

детского сада

, а яслей

[loctar]

скажи хотя бы тогда , куда его вставить

[Serge_Bliznykov]

у Вас не полный код!
У Вас есть нужная процедура, но нет описания нужного массива, его заполнение и вызов имеющейся у Вас процедуры.

Может быть, уже стоит перестать искать готовый код в Интернете и начать ИЗУЧАТЬ ЯЗЫК ПРОГРАМИРОВАНИЯ?!!!!


в качестве гуманитарной помощи, хоть я и не уверен, что Вам это пойдёт на пользу... , пример кода:

.... тут ваш код .....

var A : mas;
  i,j : integer;
  s : string; 
begin
  WriteLn('Enter CHAR elements of array: ');
  for i:=1 to n do 
    for j:=1 to m do 
      ReadLn(A[i,j]);

  {вывод массива A на экран}
  for i:=1 to n do begin
    for j:=1 to m do 
      Write(A[i,j],' ');
    WriteLn;
  end;

  WriteLn('Enter WORD for checking: ');
  Readln(s);

  proverka(A, s);

  readln; {пауза, ожидаем Enter для закрытия программы}
end.