По названию технологической операции определить, к какому виду технологического воздействия она относится

program pr;
 
const
  g = ['точение', 'фризерование', 'шлифование', 'хонингование'];
  c = ['сварка', 'пайка', 'клепка', 'запрессовка'];
 
var
  s: string;
 
begin
  writeln('Введите технологию операции');
  readln(s);
  if s in g then
    writeln('обработка резанием');
  if s in c then
    writeln('сборочные операции');
  if not (s in g) and not (s in c) then
    writeln('Таких операций нет');
end.

const
  g:set of string = ['точение', 'фризерование', 'шлифование', 'хонингование'];
  c :set of string= ['сварка', 'пайка', 'клепка', 'запрессовка'];

  Write('Операция: '); ReadLn(s);
  case s of
  'точение', 'фрезерование', 'шлифование', 'хонингование':
    WriteLn('обработка резанием');
  'сварка', 'пайка', 'клепка', 'запрессовка':
    WriteLn('сборочная операция');
  else
    WriteLn('неизвестная операция');
  end;

const
  o: array [1..8] of String[15] = (
    'точение', 'фрезерование', 'шлифование', 'хонингование',
    'сварка', 'пайка', 'клепка', 'запрессовка');
var
  i: Integer;
  s: String;
begin
  Write('Операция: '); ReadLn(s);
  i:=8; while (i>0) and (s<>o[i]) do Dec(i);
  case i of
  0:    WriteLn('неизвестная операция');
  1..4: WriteLn('обработка резанием');
  5..8: WriteLn('сборочная операция');
  end;
end.

type
  TOp = record
    nm: String[13];
    tp: Integer;
  end;
const
  o: array [1..8] of TOp = (
    (nm:'точение'; tp:1), 
    (nm:'фрезерование'; tp:1), 
    (nm:'шлифование'; tp:1), 
    (nm:'хонингование'; tp:1),
    (nm:'сварка'; tp:2),
    (nm:'пайка'; tp:2),
    (nm:'клепка'; tp:2),
    (nm:'запрессовка'; tp:2));
  oc: array [1..2] of String[31] = ('обработка резанием', 'сборочная операция');
var
  s: String;
  i: Integer;
begin
  Write('Операция: '); ReadLn(s);
  i:=High(o); while (i>0) and (s<>o[i].nm) do Dec(i);
  if i=0 then WriteLn('неизвестная операция')
  else WriteLn(oc[o[i].tp]);
end.

  if      s in g then WriteLn('обработка резанием')
  else if s in c then WriteLn('сборочная операция')
  else                WriteLn('неизвестная операция');