Задача по Паскалю. Вопрос..

[Dobrota]

пожалуйста помогите, что означает выделенное красным?...
Паскаль..

program lab2;
    uses crt;
    var  wrd,  b, s:string;
      
       A:array [1..256, 1..256] of integer;
       dl_sl,sum,m,k,j,i, p,x,f:integer;
	   ch:char;
	   
	function checkstr(var arg:string;c:char):boolean;
		var
		i:integer;
		st:string;
		begin
		checkstr:=true;
			  st:='';
			  for i:=1 to length(arg) do
				if arg[i]<>' ' then
				  st:=st+arg[i]
				else begin
				  if pos(c,st)=0 then begin
					checkstr:=false;
					break;
				  end;
				  st:='';
				end;
			end;   

	   
    begin  clrscr;
	repeat
        writeln ('Menu:');
        writeln ('1. Vvod simvolnoi stroki');
        writeln ('2. Obrabotka stroki s vivodom resultata');
        writeln ('3. vvod dvumernogo massiva');
        writeln ('4. obrabotka dvumernogo massiva s vivodom resultata');
        writeln ('5. Exit');
        writeln;
        writeln('viberite punkt');
       
              readln (x);
              case x of
              1:begin
			  writeln('enter the string:');
              readln(s); 
			  end;
              2:begin
			  writeln('enter the letter');
				readln(ch);
				if s[length(s)]<>' ' then
				s:=s+' ';
				if pos(ch,s)=0 then
				writeln('this sentence doesnt contain the letter ',ch)
				else
					if checkstr(s,ch) then
					writeln('letter ',ch,' in each word')
					else
					writeln('letter ',ch,' isnt in each word');
					readln
					end;

              3:begin 
			  write('kol-vo strok i stolbcov matrici = ');
              readln(m);
              for i:=1 to m do
                for j:=1 to m do
                begin
                write ('a[',i,',',j,']=');
                readln(A[i,j]);
                end;
                end;
              4:begin 
			  writeln('nasha matrica:');
                    for i:=1 to m do  begin
                    writeln();
                        for j:=1 to m do

                        write (a[i,j],' ');
                    end;
                    sum:=0;
                    for i:=1 to m do
                    for j:=1 to m do
                    if i=j then sum:=sum+a[i,j];
                    write ('summa diagonali ravna ');
                    writeln(sum);
                    end;

              5: begin
			  writeln('1. Vihod');
              writeln('2. Otmena');
              readln(x);
              if x=1 then exit;
              if x=2 then continue;   
				 writeln(' ');
                 writeln('Viberite punkt menu: ');
				 end;
				 end;
                 until x=5;
				
                
                     end.

[DrStrangeLove]

1.

2:begin
			  writeln('enter the letter');
				readln(ch);
				if s[length(s)]<>' ' then
				s:=s+' ';
				if pos(ch,s)=0 then
				writeln('this sentence doesnt contain the letter ',ch)
				else
					if checkstr(s,ch) then
					writeln('letter ',ch,' in each word')
					else
					writeln('letter ',ch,' isnt in each word');
					readln
					end;

Здесь если пробельный символ не является последним символом, то он (пробельный символ) добавляется к последнему символу строки.. (это делается для того чтобы внутри функции checkstr() мы смогли бы

обработать последнее слово строки, выполнив

 if pos(c,st)=0 then begin
					checkstr:=false;
					break;
				  end;

)

Далее идёт проверка есть ли буква вообще в строке или нет. Если нет так и говорим 'this sentence doesnt contain the letter '

Если же хоть одна эта буква в строке есть, то запускаем функцию checkstr(s,ch) которая определит в каждом ли слове у нас есть эта буква или не в каждом (в одном, в двух и тд. НО НЕ ВО ВСЕХ)


2.

function checkstr(var arg:string;c:char):boolean;
		var
		i:integer;
		st:string;
		begin
		checkstr:=true;
			  st:='';
			  for i:=1 to length(arg) do
				if arg[i]<>' ' then
				  st:=st+arg[i]
				else begin
				  if pos(c,st)=0 then begin
					checkstr:=false;
					break;
				  end;
				  st:='';
				end;
			end;

Здесь:

checkstr:=true; - Сперва делаем допущение, что у нас в каждом слове есть эта буква (если не так то изменим потом на false)

st:=''; Заводим пустую строку, куда будем класть слова из нашей исходной строки

for i:=1 to length(arg) do
				if arg[i]<>' ' then
				  st:=st+arg[i]
				else begin
				  if pos(c,st)=0 then begin
					checkstr:=false;
					break;
				  end;
				  st:='';
				end;

Проходимся по нашей исходной строке собирая слова в переменную st.. как только arg[i]<>' ' меняется на arg[i]=' ' (пробел) значит слово получено и выполняем pos(c,st)=0 -ищем в нём букву с - если не находим то гарантированно во всех словах у нас этой буквы не будет поэтому выполняем

checkstr:=false;
break;

меняя ложное допущенное значение результирующей переменной checkstr на правильное!

Если находим букву в слове, то вместо

checkstr:=false;
break;

выполняем st:=''; "обнуляя" переменную st для другого слова к которому переходишь по циклу... В конце цикла если не разу не выполнится

checkstr:=false;
break;

то значит вернётся checkstr:=true; (верное изначальное допущение)

3.

3:begin 
			  write('kol-vo strok i stolbcov matrici = ');
              readln(m);
              for i:=1 to m do
                for j:=1 to m do
                begin
                write ('a[',i,',',j,']=');
                readln(A[i,j]);
                end;
                end;

Формируем двухмерный массив- матрицу в зависимости от количества строк и столбцов, введённых пользователем..
Заносим в ячейки матрицы значения с клавиатурного ввода, предварительно указав (write ('a[',i,',',j,']=')) в какую именно ячейку будет делаться ввод...

[Dobrota]

благодарю))

[DrStrangeLove]

Надеюсь всё понятно?)

[Dobrota]

ну тааааак)