Створіть скрипт, за яким виконавець
переміщується між границями Сцени в горизонтальному напрямку до
натиснення клавіши 1. Після цього виконавець повинен переміщуватися між
границями Сцени у вертикальному напрямку до натиснення клавіши 2 і так
далі.

Завдання №2

var i,j,k,shlth:integer;    
      letter:char;
      name,minword,s1,x,x1:string;    
      f1,f2:text;    
      f:boolean;    
      arr:array [1..100] of string;
label 1;  

begin
writeln('Введіть імя файлу введення:');
readln(name);
assign(f1,name); reset(f1);
writeln('Введіть імя файлу виводу:');
readln(name);
assign(f2,name); rewrite(f2);
writeln('Введіть букву для пошуку:');
readln(letter);
letter:=lowercase(letter);
 j:=1;  

while not eof(f1) do
begin  
readln(f1,x1);  
x:=lowercase(x1);  
i:=1;  
while (i<=length(x)) and (x[i] <> letter) do  
 begin    
  while (i<=length(x)) and (x[i] = ' ') do inc(i);    
  if (i<=length(x)) and (x[i] <> letter) then      
   while (i<=length(x)) and (x[i] <> ' ') do inc(i);  
 end;    
 if i>length(x) then
  begin
   writeln(f2,x1);
   arr[j]:=x1;  
   inc(j);  
  end;
end;  

f:=false;
for k:=1 to j do
begin  
 i:=1;  
 while (i<=length(arr[k])) and (arr[k][i] = ' ') and not f do inc(i);
 if i<length(arr[k])+1 then begin f:=true; goto 1; end;
end;  

1: if not f then writeln('У файлі f2 немає слова, відповідного умові вибору') else
begin
 while (arr[k][i]<>' ') and (i<=length(arr[k])) do
  begin
  minword:=minword+arr[k][i];
  inc(i);
  end;  
 for k:=1 to j do
 begin  
  i:=1;  
  while i<=length(arr[k]) do  
   begin   
   while (i<=length(arr[k])) and (arr[k][i] = ' ') do inc(i);
   if i<=length(arr[k]) then begin shlth:=1; s1:=arr[k][i]; end;
   while (i<=length(arr[k])) and (arr[k][i] <> ' ') do begin s1:=s1+arr[k][i]; inc(i); inc(shlth);  end;
   if shlth<length(minword) then minword:=s1;
   end;
 end;
writeln('Найкоротша слово у файлі f2: ',minword);
end;    
 
close(f1); close(f2);
end.

Большой, просторный, светлый дом.Ребят хороших много в нём.Красиво пишут и читают.Рисуют дети и считают.
В этот день гурьбой весёлойДружно мы шагаем в школу.
Каждый год школа дверь открывает.С теплотой всех детей принимает.Малыши - новосёлы вселяются.Знаешь ты, как они называются?
Ученикам велит садиться.Затем вставать и расходиться.В школе многим он велит,Ведь звонит, звонит, звонит.
Загадка про школу,про тот самый срок,Который ребятам Прозвонит звонок.

Стал теперь умней наш класс!Мы крючки и зонтикиСтали рисовать.Ты попробуй отгадать,Что же это за тетрадь? (Пропись)* * *Все рисунки вмиг сотрет,Если в ход она пойдет. (Стирательная резинка)* * *Пляшут Ира и Кирилл,Пляшут Таня, Даниил.Это просто танцы века! —В нашем классе... (дискотека)* * *В этом заведенииВсе перебывали.Двоечники, генииОтметки получали.Учились здесь артисты,Певцы, артиллеристы.Сюда хожу и я,И вы, мои друзья. (Школа)* * *Таблицу умноженияУчил я две недели.Скажу я без сомнения —Важнее нету дела!Ее запомнил на года!Хоть сколько будет лет,Я на любой пример всегдаДам правильный... (ответ)* * *Мы идем в медкабинет.Все боятся, а я — нет.Лица у ребят, как сливки, —Побледнели от... (прививки)* * *Для младших классов лишь одноОно — начальное... (звено)* * *Я болею, дома я,В школе все мои друзья.Дома быть мне непривычно,Врач мне выдал лист... (больничный)* * *Мы по улице ходилиИ о времени забыли.Дождь пошел. Стучит он гулко,Сорвана была... (прогулка)* * *Плох тот, ребята, ученик,Кто не ведет совсем дневникИ на уроках не бывает,А вместо школы в мяч играет.Скажите, как того назвать,Кто школу любит прогулять? (Прогульщик)* * *Все листочки скреплены,Не рассыплются они.Держит крепко, как прищепка,Металлическая... (скрепка)* * *Первая книга, что знанья дает,Ее первоклассник в портфеле несет.Всегда и повсюду, сегодня и встарьШкольнику очень нужен... (букварь)* * *